Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите рекурсивную функцию, которая вычисляет НОД двух натуральных чисел, используя модифицированный алгоритм Евклида.Пример: Введите два натуральных числа:7006652 112307574НОД(7006652,112307574)=1234.Пожалуйста посчитайте пожалуйста

ОТВЕТЫ


function Nod(a,b:integer):integer;
begin
  if b=0 then Result:=a
  else Result:=Nod(b,a mod b)
end;

begin
  var a,b:integer; Read(a,b);
  Writeln(Nod(a,b))
end.
701
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам