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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Mai Lan
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ẻ
Nguyễn Lê Phước Thịnh
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.


Các câu hỏi tương tự
Minh Ngọc
Xem chi tiết
Xem chi tiết
Minh Ngọc
Xem chi tiết
Phạm Hải Đăng
Xem chi tiết
Minh Ngọc
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết
Nguyễn Thị Mai
Xem chi tiết
phamthiminhanh
Xem chi tiết
Trúc Anh
Xem chi tiết