Вопрос по информатике:
Pascal. Вводится 2 натуральных числа. Вывести их НОК.
Помогите пожалуйста!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.03.2017 04:24
- Информатика
- remove_red_eye 10015
- thumb_up 25
Ответы и объяснения 2
var
a, b: integer;
function NOD (p1, p2: integer):integer;
begin
while p1p2 do
if p1>p2 then p1:=p1-p2 else p2:=p2-p1;NOD:=p1;
end;
function NOK (p1, p2: integer):integer;
begin
NOK:=(p1*p2) div NOD(p1, p2);
end;
begin
readln (a, b);
writeln ('НОК a, b = ', NOK(a, b));
end.
- 22.03.2017 20:50
- thumb_up 41
a, b, nok: integer;
begin
readln (a, b);
nok:=(a*b);
while ab do
begin
if a>b then a:=a-b else b:=b-a;
end;
nok:=nok div a;
write (nok);
end.
- 23.03.2017 15:53
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.