Ответы и объяснения

2012-12-25T10:50:20+00:00

сделал все 3 задания програмно(все проверил), думаю сделать блок схему труда не составит.

1)

var
x,y:real;
begin
read(x);
if x<-8 then
y:=2*x-5
else
y:=1-sin(x);
write(y);
end.

2) 

var
x,y:real;
begin
read(x);
read(y);
if ((x>=1) and (x<=2)) and ((y>=0) and (x<=3)) then
write('prinadlesit')
else
write('no');
end.

3)

var
x,y,p:real;
begin
read(x);
read(y);
if x+y>0 then
p:=sqr(x)+sqr(y)
else
p:=sqr(x+y);
write(p);
end.