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
2 câu trả lời
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.
@ kynguyen64
Bài làm của mik nè ^_^
program tinh_s;
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: '); write(t);
readln;
end.
# nocopy
# ara boss ris
CHÚC BẠN HỌC TỐT !
NHỚ ĐỂ LẠI CHO KYNGUYEN64 CTLHN+5 SAO+CÁM ƠN NHA !
