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

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

1. Program Tinh_tong;

   Uses Crt ;

   Var S,i:Integer;

   Begin

   Clrscr;

   S:=0;

   For i:=1 to 10 do S:=S+i;

   Writeln(‘ Tong cua ‘,10,’ so tu nhien dau tien S=’  , S);

   Readln

   end.

   Bình luận

2. Program Tinhtong;

   uses crt;

   var  i,s : integer;

   begin

      clrscr;

      for i:=0 to 9 do s:=s+i;

      write(‘Tong la ‘,s);

      readln;

   end.

   Bình luận