Question

СРОЧНО!

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

Answer 1

function gcd(a, b: longint): longint;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  gcd := a
end;

var
  a, b: longint;

begin
  Write('Введите два натуральных числа: '); Readln(a, b);
  Writeln('НОД(', a, ',', b, ')=', gcd(a, b))
end.

Тестовое решение:
Введите два натуральных числа: 7006652 112307574
НОД(7006652,112307574)=1234

Answer 2

в этой же программе

Answer 3

Да все можно, только в Вашем задании ничего об этом не сказано.

Answer 4

Попробуйте использовать соотношение НОК(a,b)=a*b/НОД(a,b)