Ответы на вопрос:
// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! procedure nod_nok(a,b: integer; var nod,nok: integer); begin (var p,var q): =(a,b); while q> 0 do (p,q): =(q,p mod q); nod: =p; nok: =a*b div nod end; begin var a,b,c,d: integer; read(a,b); nod_nok(a,b,c,d); writeln('нод=',c,', нок=',d) end. пример 138 42 нод=6, нок=966
Популярно: Информатика
-
yurka197307.02.2021 12:30
-
ttttrrrrtttr23.10.2022 20:00
-
shcherbakova0503.11.2022 07:13
-
daniilnv231.01.2021 22:41
-
kuzmov5501.04.2020 17:49
-
gghvagsh16720.01.2020 14:37
-
Adamant081307.11.2022 08:47
-
volapaevowjb4p17.11.2022 00:07
-
нур9206.09.2021 06:22
-
Nikitaue11.01.2023 11:28