Question

Напишите программу на pascalABC.NET, которая получает с клавиатуры два натуральных числа и находит их НОД с помощью алгоритма Евклида. Программа должна подсчитать количество шагов цикла. Заполните таблицу:

Answer 1

var

 a,b,count:integer;

begin

 readln(a,b);

 count:=1;

 while a<>b do

   begin

     if a>b then

       a:=a-b

         else

           b:=b-a;

     inc(count);

   end;

 writeln('НОД:',a,';  count:',count);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!