Ответы на вопрос:
Var n,j: real; begin writeln('введите число'); readln(n); if n < 0 then j: =n*n else j: =sqrt(n); writeln(j); end.
Популярно: Информатика
-
Рамина111111129.03.2022 15:04
-
Klimg03.07.2021 21:12
-
antonangel88p09szr13.08.2022 21:35
-
ktuj24010.09.2020 15:38
-
АКА4711124.11.2021 20:08
-
betmurzaev201519.10.2022 15:02
-
Fissadi01.05.2020 08:55
-
dfhdfhf2002200410.06.2020 17:22
-
Nikyyysik03.10.2021 03:10
-
Анечка04Анюта24.10.2020 18:23