viết phương trình Pascal nhập từ bàn phím vào 1 số tự nhiên . kiểm và in ra màn hình số đó là số chắn hay là số lẻ

2 câu trả lời

program ct;

uses crt;

var n:integer;

begin clrscr;

   write('Nhap so n: '); readln(n);

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

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

readln;

end.

Học tốt!

program ct;

uses crt;

var n:integer;

begin

clrscr;

write('nhap mot so:=');readln(n);

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

if n mod 2=1 then writeln(n,' la so le');

readln

end.