Question

Viết chương trình nhập vào một số thực, kiểm tra số đó là số chẵn hay số lẻ

Answer 1

Var a:longint;

begin

Write (' So thuc la : ');

Readln(a);

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

else writeln (a,' la so le ');

Readln;

end.

Answer 2

Uses crt;

var n:real;

begin

clrscr;

read(n);

if (n mod 2) = 0 then
writeln('N la so chan')

else writeln('N la so le');

readln

end.

Answer 3

uses crt;
var n : integer;
begin clrscr;
write('Nhap so n :'); readln(n);
if n mod 2 = 0 then write('',n,' la so chan') else write('',n,' la so le');
readln
end.