Вопрос по информатике:
Решить.Даны натуральные числа n,m; найти НОД(n,m). Использовать программу, включающую рекурсивную процедуру вычисления НОД, основанную на соотношении НОД(n,m)=НОД(m,r), где r – остаток от деления n на m.(паскаль)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.04.2017 23:32
- Информатика
- remove_red_eye 8215
- thumb_up 49
Ответы и объяснения 1
Var
a,b:integer;
procedure nod(x,y:integer);
begin
if x=y then writeln(x)
else if x>y then nod(x-y,y) else nod(x,y-x);
end;
begin
writeln('Введите два числа ');
readln(a,b);
write('НОД: ');
nod(a,b);
end.
Тестовое решение:
Введите два числа
33
18
НОД: 3
- 06.04.2017 11:31
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.