Viết chương trình tính tổng T=5+10+15+…+100
2 câu trả lời
uses crt;
var t,i:longint;
begin
clrscr;
for i:=5 to 100 do
if i mod 5 =0 then t:=t+i;
write('T = ',t);
readln
end.
program Min;
uses crt;
var i,T:longint;
begin
clrscr;
T:=0;
for i:=1 to 20 do T:=T+5*i;
write('T = ',T);
readln
end.
:D Chưa hiểu thì bạn hỏi thêm nha, cách này khác với bài làm ở trên :v
Câu hỏi trong lớp
Xem thêm