Question

(34 балла) Даны целые числа а и b (а > b). Определить: Результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; Остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на Pascal ABC/ C ПОМОЩЬЮ цикла WHILE

Answer 1

var

a, b, ans: Integer;

begin

Readln(a, b);

ans := 0;

while ans * b <= a do

ans := ans + 1;

ans := ans - 1;

Write(ans,' ', a-(ans*b));

end.

Answer 2

Для того чтобы выполнить целочисленное деление и получить остаток без использования стандартных операций, можно использовать цикл while для многократного вычитания числа b из a, пока a не станет меньше b. Количество таких вычитаний будет результатом целочисленного деления a на b, а значение a после цикла будет содержать остаток.

Ниже приведен код на Pascal ABC:

pascalCopy code
program IntegerDivisionAndRemainder;
var
  a, b, quotient, remainder: integer;
begin
  // Вводим значения a и b (предполагаем a > b)
  writeln('Введите целое число a:');
  readln(a);
  writeln('Введите целое число b:');
  readln(b);

  // Проверяем, что b не равно нулю
  if b = 0 then
  begin
    writeln('Ошибка: деление на ноль недопустимо.');
    exit;
  end;

  // Вычисляем результат целочисленного деления и остаток
  quotient := 0; // Инициализируем результат целочисленного деления
  remainder := a; // Инициализируем остаток

  while remainder >= b do
  begin
    remainder := remainder - b;
    quotient := quotient + 1;
  end;

  // Выводим результаты
  writeln('Результат целочисленного деления a на b: ', quotient);
  writeln('Остаток от деления a на b: ', remainder);
end.

При вводе чисел a = 34 и b = 5, программа выведет:

lessCopy code
Результат целочисленного деления a на b: 6
Остаток от деления a на b: 4