Программирование разветвляющихся вычислительных процессов с использованием операторов, реализующих базовые структуры ветвления. Вариант № 2, страница 3

3..8:y:=exp(x-3);

9:y:=sqr(ln(x)/ln(3));

else y:=-x;

Writeln;

Writeln('x=',x:3,'y=',y:8:5);

End;

end.

6.Вид печати:

введите x-5

x= -5y= 5.00000

введите x-2

x= -2y= 0.25301

введите x4

x=  4y= 2.71828

введите x9

x=  9y= 4.00000

введите x25

x= 25y=-25.00000