Tính tổng các số chẵn nhỏ hơn hoặc bằng 9

0 bình luận về “Tính tổng các số chẵn nhỏ hơn hoặc bằng 9”

1. Program Tinhtong;

   uses crt;

   Var i, s : integer;

   Begin

   For i := 1 to 9 do

   If i mod 2 = 0 then s := s+i;

   Writeln(‘Tong cua cac so chan la :’, s);

   Readln

   End.

   Bình luận

2. Program BTH;
   uses crt;
   var s,i:longint;
   Begin
           clrscr;
           For i:=1 to 9 do
                   If i mod 2=0 then s:=s+i;
           write(‘Tong cac so tren la: ‘,s);
           readln;
   end.

   Bình luận