Ответы на вопрос:
Var a, b, c: integer; function zd(a: integer): integer; begin if a=0 then zd: =0 else if a> 0 then zd: =sqr(a) else zd: =a*a*a; end; begin read(a, b, c); write(zd(a), ' '); write(zd(b), ' '); write(zd(c), ' '); end.
Популярно: Информатика
-
NastyaResh66613.11.2022 00:13
-
shvok25.10.2020 01:32
-
teodormax04.04.2021 23:03
-
АняПоторалова22.08.2022 21:46
-
Всеникизаняты0009.04.2023 05:00
-
olga1972323.01.2020 12:08
-
DiModDi14.06.2023 09:27
-
nikadik200007.06.2021 10:24
-
09871401.05.2021 02:26
-
coldsssiemens01.06.2021 04:48