Дано целое число. если оно больше 0, то прибавить к нему 2, если меньше или равно то вычесть из него 1. вывести полученное число.

Question

Венедимыч

12 октября, 02:09

+1

Ответы (1)

Знаете ответ на вопрос?

Надюня · Answer 1

Var a:integer;

Begin

Readln (a) ;

If a>0 then

a:=a+2;

If a<=0 then

a:=a-1;

Writeln (a) ;

End.