Введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число

Question

Информатика: Введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число

Samuel11 · Answer

Var a:integer; c:real; Begin Readln(a); If a =0 then c:=sqrt(a) Else c:= 1/a; Write(c); End....