viết chương trình tính tổng của 20 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 20 số tự nhiên đầu tiên”

1. Program tinhtong;

   Uses Crt;

   Var S,i : Integer;

   Begin

            clrscr;

   S:=1;

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

   Write(‘Tong cua 20 so tu nhien dau tien:’,S);

   End.

   HỌC TỐT NHÉ !

   Bình luận

2. Program BTT;
   Uses crt;
   Var i,t: longint;
   Begin
           Clrscr;
           t:=0;
           For i:=1 to 20 do
                   If i mod 2 = 0 then t:=t+i;
           Write(‘Tong cac so chan cua 20 so tu nhien dau tien: ‘,t);
           Readln

   Bình luận