Viết chương trình kiểm tra tính chẵn lẻ của số nguyên N từ bàn phím
2 câu trả lời
program chan_le;
Uses crt;
var n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
if n mod 2=0 then write(n,' la so chan')
else write(n,' la so le');
readln;
end.
@Meoss_
* Viết chương trình kiểm tra tính chẵn lẻ của số nguyên N từ bàn phím:
Program Kiemtra_chanle;
Uses crt;
var N:integer;
begin
clrscr;
Write('Nhap so nguyen N');Readln(N);
If ( N mod 2=0) then write(N,'la so chan') else write(N,'la so le');
Readln;
End.
