Информатика, опубликовано 2018-08-22 23:46:54 by Гость
Введите число, если оно не отрицательное, то найдите каадратный корень, иначе вычислите обратное число.
Ответ оставил Гость
Var a:real;
begin
writeln(введите число);readln(a);
if(a>=0) then writeln(sqrt(a):4:1) else writeln((1/a):4:1);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.