Viết chương trình tính tổng của 50 số tự nhiên đầu tiên. Cám ơn ạ!!!

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

1. Program BTH;
   uses crt;
   var i,s:longint;
   Begin
           clrscr;
           For i:=1 to 50 do s:=s+i;
           write(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 50 do s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận