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

Question

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

kuekkukov · Answer

// PascalABC.NETbegin  var a := ReadInteger;  if a = 0 then    a += 1  else    a *= 2;  Print(a)end....

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