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

Question

Информатика

Сергуна

18 февраля, 09:49

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

+2

Ответы (1)

Знаете ответ?

Таля · 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.