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

oihgoilk oihgoilk    2   09.07.2019 09:30    0

Ответы
Lesha152 Lesha152  16.09.2020 23:28
Var a:real;
begin
writeln('введите число');readln(a);
if(a>=0) then writeln(sqrt(a):4:1) else writeln((1/a):4:1);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика