Введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число
269
355
Ответы на вопрос:
Var a: integer; c: real; begin readln(a); if a> =0 then c: =sqrt(a) else c: = 1/a; write(c); end.
Популярно: Информатика
-
zhezhuzina200628.04.2022 00:22
-
mokovanins05.11.2021 04:09
-
Zazej14.03.2020 02:20
-
ViktorVivat29.09.2021 19:43
-
vaniagaclyc26.01.2020 19:48
-
HETHEDAM16.03.2023 09:30
-
komissarova531010.11.2021 00:16
-
sanie777velieva01.07.2022 05:40
-
аліна5514.03.2023 12:58
-
паст14524.10.2021 12:50