Ответы на вопрос:
// нод(a,b)*нок(a,b)=a*b procedure nod(x,y: integer; var n: integer); begin repeat if x> y then x: =x mod y else y: =y mod x; until (x=0)or(y=0); n: =x+y; end; var a,b,c,d,e,n: integer; begin readln(a,b,c,d); nod(a,b,n); e: =a*b div n; nod(c,e,n); e: =c*e div n; nod(d,e,n); writeln('нок = ',d*e div n); end. пример: 36 54 18 15 нок = 540
Популярно: Информатика
-
ГIOJLNHA07.03.2022 12:28
-
linasokol0301.06.2020 21:44
-
ikstar26.01.2023 01:23
-
likunya04.06.2020 14:51
-
saitovdamir20Damit06.12.2020 07:05
-
newumnik01.04.2021 01:10
-
nastafill18.06.2020 09:16
-
zuevbogdan201701.02.2021 17:16
-
darinakydryash04.07.2020 14:47
-
NananaAD20.11.2021 14:08