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

Question

Информатика

Евсей

26 января, 07:27

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

+4

Ответы (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.