Tính tổng các số từ 1 đến 20. Trình bày các bước giải bài toán theo dạng tiến và dạng lùi câu lệnh For. Viết chương trình Pascal theo 2 dạng. Giúp em bài này với ạ!
1 câu trả lời
Dạng 1: tiến
uses crt;
var S,i:integer;
begin
writeln('Tinh tong cac so tu 1 den 20');
S:=0;
for i:=1 to 20 do S:=S+i;
writeln('Tong:',S);
readln;
end.
Dạng 2:lùi
uses crt;
var S,i:integer;
begin
writeln('Tinh tong cac so tu 1 den 20');
S:=0;
for i:=20 downto 1 do S:=S+i;
writeln('Tong:',S);
readln;
end.
