Дано целочисленное значение n и вещественные значения Х, У и Z. При n<0, n=0 или n>0 изменить соответственно значения Х на Х-0,5, У на У/3,5, а Z на Z2.

1

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

2013-11-20T22:37:57+04:00
Program z1;
Var n: integer;
x,y,z: real;
Begin 
       read(n);
if n>=0 then begin
x:-x-0,5;
y:=y/3;
z:=z*2
Else begin
x:-x-0,5;
y:=y/3;
z:=z*2
end;
end.