Ôn tập cuối năm

Hoàng Lâm

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....

Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
phamphuc
Xem chi tiết
Hạ Thanh
Xem chi tiết
Phuong Phuong
Xem chi tiết
Trâm Vương
Xem chi tiết
nguyễn thị kim ngân
Xem chi tiết
Dấu tên
Xem chi tiết
jaybk
Xem chi tiết
Ngọc Hân Lương Thị
Xem chi tiết
jaybk
Xem chi tiết