Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите обратное число.
Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите обратное число.
Гость
Ответ(ы) на вопрос:
Гостьvar a:real;
begin
writeln('введите число');readln(a);
if(a>=0) then writeln(sqrt(a):4:1) else writeln((1/a):4:1);
end.
Не нашли ответ?
Похожие вопросы