СРОЧНО!
Напишите функцию,(через процедуру ) которая находит наибольший общий делитель двух натуральных чисел.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД(7006652,112307574) = 1234.
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
