Решить уравнение - Turbo Pascal (33976)

Формулировка задачи:

Уравнение 9


textual

Код к задаче: «Решить уравнение - Turbo Pascal (33976)»

var x,a,y:real;
begin
write('a='); readln(a);
write('x='); readln(x);
if x<-6 then y:=sqrt(x*x-4)/2 else if x<2 then y:=abs(x) else y:=exp(-x);
write('y=',y:5:2);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.500 из 5

Источник