Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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.