Из двух чисел выбрать наименьшее если оно отрицательное, то возвести в квадрат, в противном случае извлеч квадратный корень.
209
292
Ответы на вопрос:
Var a,b,min: real; begin readln(a,b); if a< b then begin min: =a; writeln('a< b'); end else begin min: =b; writeln('b< a'); end; if min< 0 then writeln(sqr(min)) else writeln(sqrt(min)); end.
Популярно: Информатика
-
mamakarina13.06.2023 12:45
-
ПоНчИкНям12.08.2020 14:25
-
аліна5509.06.2023 12:38
-
LFZ111.04.2020 13:06
-
sterling112.01.2022 11:38
-
какахааа22.06.2020 09:55
-
bulycheva030308.06.2023 06:55
-
adelya63Ada09.05.2023 16:01
-
вопрос21019.07.2022 16:21
-
frossbaf12.07.2021 23:19