Проверка кратности числа
Вводятся два числа (большее и меньшее). Определить, кратно ли первое число второму, то есть делится ли первое число нацело на второе. Вывести на экран сообщение об этом, а также остаток от деления, если первое число не кратно второму.
Примеры выполнения программы
1034
8
Первое число не кратно второму
Остаток от деления = 2
121
11
Первое число кратно второму
Программа на языке Паскаль
var
a, b: integer;
modulo: integer;
begin
readln(a, b);
modulo := a mod b;
if modulo = 0 then
writeln('Первое число кратно второму')
else begin
writeln('Первое число не кратно второму');
writeln('Остаток от деления = ', modulo)
end;
end.
Алгоритм решения задачи
- Сначала найдем остаток от деления первого числа на второе. Сделать это можно с помощью оператора
mod
языка Pascal. - Присвоим остаток переменной modulo.
- Если остаток равен нулю, значит первое число кратно второму.
- Иначе, первое число не кратно второму.
В программу можно не вводить переменную для хранения остатка, а сравнивать остаток с нулем сразу после выполнения операции mod
. Однако эту же операцию (нахождение остатка) надо будет повторить и при его выводе на экран.
var
a, b: integer;
begin
readln(a, b);
if a mod b = 0 then
writeln('Первое число кратно второму')
else begin
writeln('Первое число не кратно второму');
writeln('Остаток от деления = ', a mod b)
end;
end.