1. дано целое число а. если значение а > 0, то необходимо увеличить его на единицу. написать программу для решения этой . программа должна иметь дру-жественный интерфейс. протестировать программу для a=5, a=-4, a=0.

panicheviwan panicheviwan    2   14.09.2019 02:10    1

Ответы
мвдии мвдии  21.08.2020 07:54
Var a:integer;

begin 

readln(a);

 if a<0 then a:=a+1;

 writeln(a); 

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика