Составить на языке Паскаля программу, вычисляющую функцию y=x^x, если x<0, иначе y=√x

Question

Информатика

Артемидка

11 июля, 09:12

Составить на языке Паскаля программу, вычисляющую функцию y=x^x, если x<0, иначе y=√x

+5

Ответы (1)

Знаете ответ на вопрос?

Галинка · Answer 1

Var x: Integer;

begin

writeln ('Введите значение числа x') ;

readln (x) ;

if x<0 then

writeln ('y=', x*x)

else

writeln ('y=', Sqrt (x)) ;

end.