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

0 bình luận về “Viết chương trình tính tổng 200 số tự nhiên đầu tiên”

1. 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.

   Bình luận

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

   Bình luận