написать программу нахождения наибольшего общего делителя,для 2 чисел.А и В введенных с...

Question

написать программу нахождения наибольшего общего делителя,для 2 чисел.А и В введенных с клавиатуры

Answer 1

var

a,b:integer;

 

begin

readln(a,b);

while a<>b do

 begin

  if a>b then a:=a-b;

  if a  end;

writeln(a);

readln;

end.