Вопрос по информатике:
СРОЧНО!
Напишите функцию,(через процедуру ) которая находит наибольший общий делитель двух натуральных чисел.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД(7006652,112307574) = 1234.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 23.08.2018 03:03
- Информатика
- remove_red_eye 16068
- thumb_up 35
Ответы и объяснения 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
- 24.08.2018 04:00
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.