Viết chương trình nhập 2 số a, b. Kiểm tra a có chia hết cho b không? Nếu chia hết thì in ra thông báo "có" ngược lại in ra "không".
2 câu trả lời
program oken;
uses crt;
var a,b:longint;
begin
clrscr;
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
if (a mod b=0) then
writeln('co')
else
writeln('khong');
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a, b: '); readln(a,b);
if a mod b = 0 then writeln('Co') else writeln('Khong');
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
