Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Turbo Pascal!!
Составить программу для вычисления
значение функции:
y={x^2,если х<0
x-5,если х>5
0, если 0≤х≤5

Ответ оставил Гость

Var x,y:real;
 begin
write(x=);readln(x);
if x<5 then y:x*x
    else if x>5 then y:=x-5 else y:=0;
writeln(y=,y:6:3);
end.