Question

Модифицированный алгоритм евклида для вычисления наибольшего общего делителя двух натуральных чисел, формулируется так: нужно заменять большее число на остаток от деления большего на меньшее до тех пор, пока остаток не станет равно нулю; тогда второе число и есть нод. напишите программу, которая реализует этот алгоритм. входные данные: входная строка содержит два числа, разделённые пробелом – a и b . выходные данные: программа должна вывести в одной строке два числа: сначала наибольший общий делитель двух введённых чисел, а затем – количество шагов цикла, которые были выполнены. примеры: входные данные: 21 14 выходные данные: 7 2 входные данные: 121 136 выходные данные: 1 3

Answer 1

Var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
 begin
 if a>b then a:=a mod b else b:=b mod a;
 k:=k+1;
 end;
nod:=a+b;
writeln(nod,' ',k);
end.

Пример:
21 14
7 2