Предмет: Информатика, автор: ilya20090303

Дано целое число a. Если оно является неположительным, то прибавить к не му 1,иначе увеличить в 2 раза.
В Pascal​

Ответы

Автор ответа: BobbyFresnel
1

// PascalABC.NET

begin

 var a := ReadInteger;

 if a <= 0 then

   a += 1

 else

   a *= 2;

 Print(a)

end.


ilya20090303: Спасибо
Похожие вопросы