Введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число
Var a:integer; c:real;BeginReadln(a);If a>=0 then c:=sqrt(a)Else c:= 1/a;Write(c);End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
