Vct xuất ra các số chẵn lên đầu hàng

0 bình luận về “Vct xuất ra các số chẵn lên đầu hàng”

1. Program bai1;

   uses

   crt;

   var a : integer;

   begin

   clrscr;

   write(‘nhap a =’); readln(a);

   if a mod 2 = 0 then writeln(‘la so chan ‘) else

   writeln(‘la so le ‘);

   readln;

   end.

   Bình luận

2. Program Hoangyennhi;

   Var x : integer;

   Vegin

   Write(‘nhap so x’); read(x);

   IF a mod 2 = 0 then writeln(‘la so chan ‘) else

   Writeln(‘la so le ‘);

   Read;

   End.

   Bình luận