Дано целое число a если значение а >0 то необходимо увеличить его ** единицу написать...

Question

Дано целое число a если значение а >0 то необходимо увеличить его на единицу написать алгоритм

Answer 1

Vara:integer;beginwriteln('введите a');readln(a);If (a>0) thena:=a+1;writeln(a);end.Если ты это имел ввиду

Comments

Var
a:integer;
begin
writeln('введите a');
readln(a);
If (a>0) then
a:=a+1;
writeln(a);
end.