Viết Thuật toán tính tổng các số chẵn của 20 số tự nhiên đầu tiên

0 bình luận về “Viết Thuật toán tính tổng các số chẵn của 20 số tự nhiên đầu tiên”

1. 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
   End.

   Bình luận

2. $Input$ 20 số chẵn đầu tiên

   $Output $ tính tổng $S$

   Thuật toán

   Bước 1: Nhập 40 số (vì 20 số chẵn => từ 1 đến n phải 40 số mới đủ 20 số chẵn )

   Bước 2 : gán s:=0;

   Bước 3: cho biến i chạy từ 1 – 40 nếu $i mod2=0 $ => $S:=S+i$

   Bước 4 : In ra kết quả và kết thúc thuật toán 

   Chương trình

   Program Hotboy ;

   Uses crt;

   Var i,s : integer ;

   Begin

   Clrscr;

   For i:=1 to 40 do

   Begin

   If (i mod 2=0) then s;=s+i;

   Write(‘tinh tong’,S);

   End;

   Readln

   End.

   Bình luận