viết chương trình tính tổng các số từ 1 đến 100 (yêu cầu sử dụng lặp lùi và lặp tiến) giúp em với ạ
2 câu trả lời
*Lặp lùi
program tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=100 downto 1 do t:=t+i;
write('Tong la: ',t);
readln;
end.
*Lặp tiến
program tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+i;
write('Tong la: ',t);
readln;
end.
Lặp lùi:
program lap_lui;
uses crt;
var i,T: byte;
Begin
clrscr;
for i:=100 downto 1 do T:=T+i;
write('T = ',T);
readln
End.
Lặp tiến:
program lap_tien;
uses crt;
var i,T: byte;
Begin
clrscr;
for i:=1 to 100 do T:=T+i;
write('T = ',T);
readln
End.
