Viết chương trình in ra màn hình sử dụng câu lệnh for do tinh s=3+6+9+12+...+99
Quảng cáo
2 câu trả lời 328
3 năm trước
program tinhtong;
uses crt;
var t,i:integer;
begin
clrscr;
t:=0;
for i:=3 to 99 do
if i mod 3=0 then t:=t+i;
write('Tong la: ',t);
readln
end.
3 năm trước
program tinhtong;
uses crt;
var t,i:integer;
begin
clrscr;
t:=0;
for i:=3 to 99 do
if i mod 3=0 then t:=t+i;
write('Tong la: ',t);
readln
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!