Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
a:integer;
begin
write(Введите A=);read(a);
if a>0 then
write(A=,a+1);
end.