Помогите сотавить программу Турбо Паскале. Дано целое число А. Если значение А>0, то необходимо увеличить его на единицу. Разобрать схему

CategoriesИнформатикаПредмет

алгоритма для решения этой задачию Протестировать алгоритм для А=5,А=-4,А=0 в

Ответы:

var a:longint,

begin

read(a),

if a&gt,0 then

a:=a+1,

end.