Question

Напишите программу вычисления наибольшего общего делителя двух целых чисел

Answer 1

Ответ:

program Name;

var a,b,x,y,nod:integer;

begin

writeln('Введите a,b');

readln(a,b);

x:=a; y:=b;

while x<>y do

 if x>y

  then x:=x-y

  else y:=y-x;

nod:=x;

writeln('NOD(',a,',',b,')=',nod);

end.

Объяснение: