Viết chương trình tính tổng 20 số hạng đầu tiên
2 câu trả lời
Program BTT;
Uses crt;
Var s,i: longint;
Begin
Clrscr;
s:=0;
For i:=1 to 20 do s:=s+i;
Write('Tong la: ',s);
Readln
End.
program Min;
uses crt;
var i,S:integer;
begin
clrscr;
S:=0;
for i:=1 to 20 do S:=S+i;
write('Tong la: ',S);
readln
end.