Bài 6: Phép toán, biểu thức, câu lệnh gán

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đức Nguyễn Trung

Viết chương trình nhập vào một số nguyên và kiểm tra số vừa nhập là số chẵn hay số lẻ

Giúp mk vs

duong nguyenvan
18 tháng 12 2017 lúc 19:53

Program So_chan_le;
Uses Crt;
Var
so,du:Integer;
Begin
Clrscr;
Writeln('SO CHAN HAY SO LE');
Writeln('-----------------');
Write('-Nhap mot so nguyen bat ky: ');
Readln(so);
du:=so Mod 2;
Case du Of
0:Begin
Writeln('-So : ',so);
Writeln('-La so chan');
End;
1:Begin
Writeln('-So : ',so);
Writeln('-La so le');
End;
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln;
End.

Tuấn Tủn
14 tháng 3 2018 lúc 20:08

program bai_tap;
n:integer;
begin
writeln('nhap n:');
readln(n);
if n mod 2 = 0 then
writeln(n,': la so chan')
else write(n,': la so le');
readln
end.


Các câu hỏi tương tự
nguyễn thị cẩm tiên
Xem chi tiết
Hồ Thị Thủy Tiên
Xem chi tiết
Hồ Thị Thủy Tiên
Xem chi tiết
Trần Lan Anh
Xem chi tiết
Kiều Oanh
Xem chi tiết
Yến Ngọc
Xem chi tiết
Ha Ha
Xem chi tiết
trần duy hiếu
Xem chi tiết
Đức Nguyễn Trung
Xem chi tiết