Введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число
Введите число если введенное число не отрицательное то найдите квадратный корень из числа иначе вычислите обратное число
Гость
Ответ(ы) на вопрос:
ГостьVar a:integer; c:real; Begin Readln(a); If a>=0 then c:=sqrt(a) Else c:= 1/a; Write(c); End.
Не нашли ответ?
Похожие вопросы