Помогитеее пожалуйста !от отого зависит моя четвертная оценкааа!!

1

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

2013-12-17T13:32:34+00:00
Program pr1;
var a,z:real;
begin
readln(a);
if a<0 then z:=a*(-1)
         else z:=a*10;
writeln('z=', z:5:3);
end.
б)
program pr2;
var a,z:real;
readln(a);
if a<100 then z:=a+100
            else z:=a-100;
writeln('z=', z:5:3);
end.