Ôn tập cuối năm

HL

Lập chương trình in các số tự nhiên từ 0 đến 100 chia hết cho 3 và tính tổng các số đó, kết quả trên màn hình như sau:

Tong cac so tu nhien tu 0 den 100 chia het cho 3 la:XXXX

Gom cac so:

X    X    X    X....

X    X    X    X....

X    X   X     X....

X    X   X     X....

NT
19 tháng 2 2022 lúc 17:50

uses crt;

var i,n,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do 

  if i mod 3=0 then 

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln(t);

readln;

end.

Bình luận (2)

Các câu hỏi tương tự
H24
Xem chi tiết
HT
Xem chi tiết
PP
Xem chi tiết
TV
Xem chi tiết
NN
Xem chi tiết
DT
Xem chi tiết
H24
Xem chi tiết
NT
Xem chi tiết
H24
Xem chi tiết