Câu 1: Viết chương trình nhập số nguyên N, tính tổng các số chia hết cho 3 trong phạm vi từ 1 đến N. Câu 2: Viết chương trình nhập mảng A gồn N số nguyên dương, in ra màn hình số lượng số lẻ có trong mảng A. Câu 3: Viết chương trình: - Nhập một xâu A từ bàn phím; - Tạo một xâu B chỉ chứa các kí tự là các chữ cái in hoa có trong xâu A và in xâu B ra màn hình. Câu 4: Viết chương trình nhập 1 xâu kí tự từ bàn phím. In ra màn hình số lượng chữ số có trong xâu đã nhập.

1 câu trả lời

câu 1:

uses crt;

var i,tong : integer;

begin

   clrscr;

   write('Nhap N: ');

   readln(n);

   for i := 1 to n do

     if (i mod 3 = 0) then tong := tong+i;

   writeln('Tong la: ',tong);

   readln

end.

Câu hỏi trong lớp Xem thêm