Question

Viết chương trình tính chẵn lẻ

Answer 1

program chan_le;

uses crt;

var n: integer;

begin

clrscr;

writeln(' nhap so n:'); readln(n);

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

else writeln(' la so le:');

readln;

end.

đề bài ngắn quá k đủ đk nên mik làm thế này

Answer 2

uses crt;

var a:integer;

begin

clrscr;

write('nhap so a:'); readln(a);

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

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

readln;

end.