Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2

Вывести полученное число

Question

Информатика

Людмил

30 декабря, 07:08

Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2

Вывести полученное число

+3

Ответы (2)

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

Таиса · Answer 1

var

a: integer;

begin;

Read (a) ;

if a > 0 then

a : = a + 1

else

a : = a - 2;

Writeln ('a = ', a) ;

end.

Аксюха · Answer 2

Program chisla;

Uses Crt;

Var a:integer;

Begin;

Writeln ('Введите любое целое число') ;

Readln a;

If a>0 then a:=a+1 else a:=a-2;

Writeln ('a=', a) ;

End

Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2Вывести полученное число

Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2

Вывести полученное число