Задание 9 Параграф 3.5 ГДЗ Босова 8 класс (Информатика)

Задача

а) используйте оператор repeat;
б) используйте оператор while.

Подробный ответ

Используем алгоритм Евклида: пока числа не равны, из большего вычитаем меньшее. Когда $$a=b$$, это и есть наибольший общий делитель.

а) Решение с оператором while:

program N_9a;
var
  a, b: integer;
begin
  write(‘Введите a b>>’);
  readln(a, b);
  while a <> b do
    if a > b then a := a — b else b := b — a;
  writeln(‘Наибольший общий делитель=’, a);
end.

б) Решение с оператором repeat:

program N_9b;
var
  a, b: integer;
begin
  write(‘Введите a b>>’);
  readln(a, b);
  repeat
    if a > b then a := a — b else b := b — a;
  until a = b;
  writeln(‘Наибольший общий делитель=’, a);
end.