Nguyen Sỹ Quynh
Hỏi từ APP VIETJACK
Kiểm tra a có chia hết cho b không
Quảng cáo
1 câu trả lời 1286
program aModb;
uses crt;
var a, b:integer;
begin
clrscr;
write('Nhap so thu nhat: ');
readln(a);
write('Nhap so thu hai: ');
readln(b);
if (a mod b = 0) then
writeln(a,' chia het cho ', b)
else
writeln(a,' khong chia het cho ', b);
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55468 -
Đã trả lời bởi chuyên gia
31401 -
Đã trả lời bởi chuyên gia
29946
Gửi báo cáo thành công!
