H24

viết chương trình tính tổng của các số nguyên chia hết cho 3t rong phạm vi từ 1 đến 30

BT
14 tháng 4 2021 lúc 19:56

Bình luận (0)
NT
14 tháng 4 2021 lúc 20:12

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 30 do 

 if i mod 3=0 then t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NM
Xem chi tiết
TH
Xem chi tiết
MA
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
LP
Xem chi tiết
VP
Xem chi tiết
VC
Xem chi tiết
DN
Xem chi tiết