Вводится число, если это число отрицательное, то его надо умножить на 100, если положительное, то прибавить 100

1

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

2014-02-09T05:12:11+00:00
Program s;
var a,b:integer;
begin
readln(a);
if(a < 0 )then a:= a * 100
else a:= a + 100;
writeln(a);
readln;
end.