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

Question

Асафий

27 июня, 20:46

+5

Ответы (1)

Знаете ответ?

Марися · Answer 1

Var a:real;

begin

writeln ('введите число') ; readln (a) ;

if (a>=0) then writeln (sqrt (a) : 4:1) else writeln ((1/a) : 4:1) ;

end.