Cho n: integer. Viết chương trình kiểm tra xem n có chia hết cho 2 hay ko. Làm nhanh giúp mình nha!
2 câu trả lời
Program BTT;
Uses crt;
Var n: integer;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
If n mod 2 = 0 then Write(n,' chia het cho 2')
Else Write(n,' khong chia het cho 2');
Readln
End.
var x:longint;
begin
write('nhap vao so x=');readln(x);
if (x mod 2=0) then writeln('x chia het cho 2')
else
writeln('x khong chia het cho 2');
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
