Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите обратное число.
197
368
Ответы на вопрос:
Var a: real; begin writeln('введите число'); readln(a); if(a> =0) then writeln(sqrt(a): 4: 1) else writeln((1/a): 4: 1); end.
Популярно: Информатика
-
SergeGu24.09.2020 21:04
-
K4RT3R24.04.2020 22:39
-
alona777327.10.2020 05:34
-
OWERpass10.01.2023 16:37
-
HesteVlad23.03.2022 17:31
-
8963587889517.05.2020 01:46
-
DashaKim11718.05.2022 10:19
-
milana2010198602.10.2022 02:09
-
nikitleas20.01.2022 02:10
-
Grammar3403.06.2021 03:33