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.