Вычислить значение функции в зависимости от введенного аргумента - Pascal ABC

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

Помогите,пожалуйста.

Код к задаче: «Вычислить значение функции в зависимости от введенного аргумента - Pascal ABC»

textual
var
x,y,a: real;
begin
write('Введите x: ');
readln(x);
if x>10 then y:=1/x else
if x<-10 then y:=Sin(x) else begin
write('Введите a: ');
readln(a);
y:=a*x*x;
end;
writeln('y = ',y);
end.

13   голосов, оценка 4.077 из 5


СОХРАНИТЬ ССЫЛКУ