34) Предоставлены целые числа а и b (где а b). Не используя стандартную

Question

Информатика: 34) Предоставлены целые числа а и b (где а > b). Не используя стандартную операцию целочисленного деления, определите: результат целочисленного деления a на b и остаток от деления а на b. Решите

Ледяной_Огонь · Accepted Answer

Хорошо, давайте решим данную задачу поэтапно.

1. Сначала нужно объявить две переменные `a` и `b` и присвоить им заданные значения. Давайте назовем их `a` и `b` соответственно:



var

  a, b: integer;

begin

  a := 34;

  b := 7;

2. Затем нам понадобится переменная `result`, которая будет хранить результат целочисленного деления `a` на `b`. Изначально установим эту переменную в ноль:



var

  a, b, result: integer;

begin

  a := 34;

  b := 7; 

  result := 0;

3. Теперь воспользуемся циклом `while`, чтобы на каждой итерации вычитать `b` из `a`, пока `a` не станет меньше `b`. При этом увеличиваем значение `result` на единицу на каждой итерации:



var

  a, b, result: integer;

begin

  a := 34;

  b := 7; 

  result := 0;



  while a >= b do

  begin

    a := a - b;

    result := result + 1;

  end;

4. Теперь нужно найти остаток от деления `a` на `b`. Остаток будет равен значению `a` после выполнения всех итераций цикла `while`:



var

  a, b, result, remainder: integer;

begin

  a := 34;

  b := 7; 

  result := 0;



  while a >= b do

  begin

    a := a - b;

    result := result + 1;

  end;



  remainder := a;

5. Наконец, передадим значения `result` и `remainder` в нужной форме вывода пользователю. Например, можно вывести их на экран:



var

  a, b, result, remainder: integer;

begin

  a := 34;

  b := 7; 

  result := 0;



  while a >= b do

  begin

    a := a - b;

    result := result + 1;

  end;



  remainder := a;



  writeln("Результат целочисленного деления a на b: ", result);

  writeln("Остаток от деления a на b: ", remainder);

end.

Вот и все! Теперь у вас есть полное решение данной задачи на языке Pascal ABC/C, с использованием цикла `while`.

34) Предоставлены целые числа а и b (где а > b). Не используя стандартную операцию целочисленного деления, определите

Ледяной_Огонь

О проекте

Предметы

Задать вопрос

Привет!