Помогите составить программы в паскале по этим двум алгоритмам.
Заранее спасибо!
Приложения:
Ответы на вопрос
Ответил SAOD
0
program n1;
var (x,y);
begin
read(x);
if x<=-100 then y:=5x+10 else
if (-100<x)and(x<=0) then y:=sqr(x)-1 else y:=abs(x);
writeln('y=',y);
end.
program n2;
var (x,y);
begin
raed(x);
if x<=-20 then y:=3*sqr(x)*x else
if (-20<x)and(x<=30) then y:=abs(x) else y:=30;
writeln('y=',y);
end.
var (x,y);
begin
read(x);
if x<=-100 then y:=5x+10 else
if (-100<x)and(x<=0) then y:=sqr(x)-1 else y:=abs(x);
writeln('y=',y);
end.
program n2;
var (x,y);
begin
raed(x);
if x<=-20 then y:=3*sqr(x)*x else
if (-20<x)and(x<=30) then y:=abs(x) else y:=30;
writeln('y=',y);
end.
Новые вопросы