Дано целое число если оно яв-ся полож. то прибавить 1. если отрицательным - 2. если 0 то прибавить 10.

Question

Сысой

23 сентября, 03:37

+2

Ответы (1)

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

Нинуха · Answer 1

var

a : integer;

begin

readln (a) ;

if a > 0 then

a : = a + 1;

if a <0 then

a : = a-2

if a = 0 then

a : = 10;

writeln (a) ;

end.