Viết chương trình tính tổng 20 số hạng đầu tiên

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

1. Program BTT;
   Uses crt;
   Var s,i: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 20 do s:=s+i;
           Write(‘Tong la: ‘,s);
           Readln
   End.

   Bình luận

2. program Min;

   uses crt;

   var i,S:integer;

   begin

         clrscr;

         S:=0;

         for i:=1 to 20 do S:=S+i;

         write(‘Tong la: ‘,S);

         readln

   end.

   Bình luận