Составьте программу нахождения наибольшего общего делителя для двух чисел. (Воспользоваться алгоритмом Евклида). Алгоритм Евклида поиска наибольшего общего делителя двух чисел: вычитай из большего меньшее, пока числа не станут равны. Полученное значение и будет искомым.

Var  a, b: word;
function NOD(x, y: integer):integer;
begin 
repeat    
 if abs(x) > abs(y) then      
 x := x mod y    
else    
  y := y mod x;  
until (x = 0) or (y = 0); 
  NOD := abs(x + y);
 end;
begin 
 write(a=);read(a);  
 write(b=);readln(b); 
writeln(NOD(a,b)=, NOD(a, b)); 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.