Viết chương trình tính tổng 200 số tự nhiên đầu tiên

2 câu trả lời

program tinhtong;

uses crt;

var i: interger;

      S: longint;

begin

 clrscr;

 S:=0;

 for i:= 1 to 200 do S:= S+i;

 writeln('tong S la: ',S);

 readln

end.

uses crt;
var i,s:longint;
begin
      clrscr;
      for i:=1 to 200 do inc(s,i);
      writeln('Tong: ',s);
      readln;
end.