Question

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

Answer 1

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