Используя алгоритм Евклида, найти НОД (наибольший общий делитель) двух чисел.

Алгоритм Евклида:

1)     пока переменные неравны, заменить большее значение на разность большего и меньшего;

2)     выбрать  любое значение в качестве результата.

Решение.

program p15;

var

a, b, x, y: integer;

begin

writeln (‘введите a и b’);

read (a, b);

x: = a; {‘запоминаем начальное значение a и b’};

y:=b;

While ab do

if a>b then a: =a – b

else b: = b – a;

writeln (‘нод (‘, x, ‘, ‘, y, ’) =’, a);

end.