viết chương trình tính tổng S=1+2+3+…+20 23/07/2021 Bởi Maya viết chương trình tính tổng S=1+2+3+…+20
program no1;uses crt;var s,i:integer;begin s:=0for i := 1 to 20 do s:=s+i;writeln(‘tong s=’,s);readlnend. Bình luận
program tinhtong;uses crt;var s,i:integer;begin s:=0for i := 1 to 20 do s:=s+i;writeln(‘tong s=’,s);readlnend. Bình luận
program no1;
uses crt;
var s,i:integer;
begin s:=0
for i := 1 to 20 do s:=s+i;
writeln(‘tong s=’,s);
readln
end.
program tinhtong;
uses crt;
var s,i:integer;
begin s:=0
for i := 1 to 20 do s:=s+i;
writeln(‘tong s=’,s);
readln
end.