câu 1:tính tổng N số chia hết cho 3. N nhập từ bàn phím.

1 câu trả lời

program h247;

uses crt;

var i, s, n: integer;

begin

write('Nhap n '); readln(n);

for i:=1 to n do 

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

write('Tong cac so chia het cho 3 la ',s);

readln;

end.

Câu hỏi trong lớp Xem thêm
4 lượt xem
2 đáp án
15 giờ trước