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

Question

Информатика

Евдоня

18 августа, 02:39

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

+4

Ответы (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.