Viết chương trình tính tổng các số tự nhiên từ 1 đến 20 30/07/2021 Bởi Delilah Viết chương trình tính tổng các số tự nhiên từ 1 đến 20
program ct_btpt; uses crt; var i, S: integer; begin S:=0; for i:=1 to 20 do S:=S+i; write(‘Tong cac so tu nhien tu 1 den 20 la: ‘, S); readln end. Bình luận
Program NN;Uses crt;Var i,s: longint;Begin Clrscr; s:=0; For i:=1 to 20 do s:=s+i; Write(‘S = ‘,s); ReadlnEnd. Bình luận
program ct_btpt;
uses crt;
var i, S: integer;
begin
S:=0;
for i:=1 to 20 do S:=S+i;
write(‘Tong cac so tu nhien tu 1 den 20 la: ‘, S);
readln
end.
Program NN;
Uses crt;
Var i,s: longint;
Begin
Clrscr;
s:=0;
For i:=1 to 20 do s:=s+i;
Write(‘S = ‘,s);
Readln
End.