Viết chương trình tính tổng T=5+10+15+…+100 22/08/2021 Bởi Vivian Viết chương trình tính tổng T=5+10+15+…+100
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. Bình luận
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); readlnend. 😀 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 Bình luận
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.
😀 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