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

Question

Вышеслав

18 февраля, 05:32

+1

Ответы (1)

Знаете ответ на вопрос?

Фавста · Answer 1

Program s;

var a, b:integer;

begin

readln (a) ;

if (a < 0) then a: = a * 100

else a: = a + 100;

writeln (a) ;

readln;

end.