Ответы на вопрос:
Var a,b: integer; function nod(x,y: integer): integer; begin if x< > 0 then nod: =nod(y mod x,x) else nod: =y; end; begin readln(a,b); writeln( 'нод = ', nod(a,b) ); end.
Популярно: Информатика
-
ivbobkova128.03.2020 19:21
-
dhwaaо21.02.2022 09:56
-
kristinakarpova213.04.2020 23:57
-
tvoibati0014.11.2021 21:53
-
madinagiraevaM12.05.2020 00:19
-
emotuz60p011ls03.03.2022 18:01
-
sofyaamosovap0cc8l19.03.2023 10:35
-
LizaLongoo05.11.2022 00:28
-
krasovskyko20121.12.2021 16:50
-
protekte16.02.2021 11:51