Задать вопрос
16 января, 16:39

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

+1
Ответы (1)
  1. 16 января, 17:20
    0
    Var a:real;

    begin

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

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

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите обратное число. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы