Bài 6. Câu lệnh điều kiện

NL
Nhập vào từ bàn phím số nguyên lớn hơn 0. Kiểm tra xem số nguyên đó là chẵn hay lẻ
NT
21 tháng 12 2020 lúc 12:59

uses crt;

var n:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

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

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

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
MN
Xem chi tiết
DT
Xem chi tiết
MN
Xem chi tiết
PD
Xem chi tiết
MN
Xem chi tiết
HV
Xem chi tiết
NM
Xem chi tiết
H24
Xem chi tiết
TA
Xem chi tiết