Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var a:real;
begin
writeln(введите число);readln(a);
if(a>=0) then writeln(sqrt(a):4:1) else writeln((1/a):4:1);
end.