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

Question

Виктуся

28 июня, 11:37

+5

Ответы (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.