Ответы на вопрос:
Var a: integer; begin write('введите число: '); readln(a); if a< 0 then a: =sqr(a) else a: =sqr(a)*a; writeln(a); end.
Популярно: Информатика
-
lesikviktoria4721.10.2022 00:26
-
LPKenion30.12.2020 21:36
-
andreiantipov115.10.2022 18:02
-
annaerkina04.01.2020 04:47
-
Марине196031.03.2022 22:14
-
maks31201703.05.2023 08:01
-
AlinaMalina101127.03.2021 22:11
-
Yana23060019.10.2021 20:52
-
tinahovsepyan24.05.2021 16:27
-
любимая2423.05.2020 16:56