Найти НОД трех чисел - Pascal ABC

Формулировка задачи:

Дано 3 числа (а, в, с). Нужно найти нод (а,в), нод(в,с) и нод(а,с). А затем сравнить и вывести на экран самое большое нод.

Код к задаче: «Найти НОД трех чисел - Pascal ABC»

textual
function nod(x, y: Integer): Integer;
begin
  if x = 0 then
    nod := y
  else
    nod := nod(y mod x, x)
end;
 
var
  a, b, c, t, max: integer;
 
begin
  write('Введите 3 числа (a, b, c): ');
  readln(a, b, c);
  max := nod(a, b);
  t := nod(b, c);
  if t > max then max := t;
  t := nod(a, c);
  if t > max then max := t;
  writeln(max);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.917 из 5


СДЕЛАЙТЕ РЕПОСТ