Question

viết chương trình nhập vào 1 sô a và in ra màn hình nếu a là sô chẵn

Answer 1

program sochan;

uses crt;

var a:integer;

begin

write('hay nhap a');

readln(a);

if a mod 2 = 0 then writeln(' a la so chan',a);

end.

Answer 2

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a mod 2=0 then write(a);

readln;

end.