Viết chương trình in ra màn hình tổng các số tự nhiên : 1+2+…+10

0 bình luận về “Viết chương trình in ra màn hình tổng các số tự nhiên : 1+2+…+10”

1. var i,s:integer;

   begin

   for i:=1 to 10 do

   s:=s+1;

   write(‘Tong tu 1 den 10 la: ‘,s);

   readln;

   en.

   Bình luận

2. Program TinhTong;

   Uses crt;

   Var S,i,n:Integer;

   BEGIN Write( ‘ Nhap so 1:’ );

   Readln( 1 )

   S: = 0;

   For i:=1 to 10 do

   S:=S + i;

   Writeln( ‘Tong = ’, S);

   Readln;

   END.

   Bình luận