Написать программу на языке Pascal для реализации разветвляющегося алгоритма



x – известные величины.

Решение

var x,y:real;
begin
writeln('');
write('Vvedite x=');
readln(x);
y:=0;
if x<=0.5  then
y:=exp((x-0.3)*ln(10))
else
if (0.5<x) and (X<=2.5) then
y:=sqr(x+0.5)
else
if x>3.5 then
y:=sqrt(x)
else
writeln('Znacheniae x ne sootvet ni odnomy iz yslovij');
writeln('y=',y:4:2);
readln;
end.