Cho n , vẽ sơ đồ khối đưa ra tổng các số từ 1 đến n

0 bình luận về “Cho n , vẽ sơ đồ khối đưa ra tổng các số từ 1 đến n”

1. Program TinhTong;

   Uses crt;

   Var S,i,n:Integer

   BEGIN

   Write( ‘ Nhap so n:’ );

    Readln( n );

    S: = 0;

   S For i:=1 to n do

   S:=S + i;

   Writeln( ‘Tong = ’, S);

   Readln;

   END.

   Bình luận