Вопрос по информатике:
СРОЧНО
решите пожалуйста задачу
Pascal
Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее кратное двух натуральных чисел и возвращает их через изменяемые параметры.
Пример:
Введите два натуральных числа:
10 15
НОД(10,15)=5
НОК(10,15)=30
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.07.2016 08:03
- Информатика
- remove_red_eye 19108
- thumb_up 14
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
procedure НОДиНОК(a,b:integer; var НОД,НОК:integer);
begin
var c:=a*b;
while b>0 do (a,b):=(b,a mod b); // a - НОД
(НОД,НОК):=(a,c div a)
end;
begin
var (a,b):=ReadInteger2('Введите два натуральных числа:');
var НОД,НОК:integer;
НОДиНОК(a,b,НОД,НОК);
Writeln('НОД(',a,',',b,') = ',НОД);
Writeln('НОК(',a,',',b,') = ',НОК);
end.
- 12.07.2016 23:10
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.