Question

составить программу в Паскале для первого графика

Answer 1

var a:real;
begin
readln(a);
if a<-1 then
writeln('y=0  f(a)=',a*0)
else if (a>-1) and (a<=0) then 
writeln('y=1 -|x|  f(a)=',1-abs(a))
else if a>=0 then 
writeln('y=1 -|x|  f(a)=',1-abs(a));
end.

Answer 2

подходит?)

Answer 3

да. спасибо

Answer 4

агась)