** языке программирования Pascal создать программу нахождения наибольшего общего делителя...

Question

На языке программирования Pascal создать программу нахождения наибольшего общего делителя (НОД)

Answer 1

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

var x,y:integer;
begin
read(x);//первое число
read(y);//второе число
while((x-y)>0 )or((y-x)>0) do
if x>y then x:=x-y
else y:=y-x;
writeln(x);
end.

Comments

Спасибо!