Ответы на вопрос:
// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! function hok(a,b: integer): integer; begin result: =a*b; while b> 0 do (a,b): =(b,a mod b); // a - нод result: =result div a end; begin writeln('нок(36,54,18,15)=',hok(hok(36,54),hok(18, end. результат нок(36,54,18,15)=540
Популярно: Информатика
-
Куропаткана666гргрг27.03.2021 22:31
-
Demix48514.12.2020 09:06
-
killmepleaseeee21.09.2020 19:01
-
Ildessova16.11.2020 22:39
-
Vikeyt21.05.2023 08:41
-
Деп56706.09.2022 14:01
-
khubulovaliza11.01.2023 11:09
-
Gjjsg06.08.2020 21:29
-
HanZamay04.02.2020 05:28
-
varvara9213.11.2021 06:37