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.