Проверка кратности числа | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

Проверка кратности числа

Вводятся два числа (большее и меньшее). Определить, кратно ли первое число второму, то есть делится ли первое число нацело на второе. Вывести на экран сообщение об этом, а также остаток от деления, если первое число не кратно второму.

Алгоритм решения задачи:

  1. Сначала найдем остаток от деления первого числа на второе. Сделать это можно с помощью оператора mod языка Pascal.
  2. Присвоим остаток переменной modulo.
  3. Если остаток равен нулю, значит первое число кратно второму.
  4. Иначе, первое число не кратно второму.

Программа на языке Паскаль:

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.

Примеры выполнения программы:

1034
8
Первое число не кратно второму
Остаток от деления = 2
121 
11
Первое число кратно второму

В программу можно не вводить переменную для хранения остатка, а сравнивать остаток с нулем сразу после выполнения операции 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.