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

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

Question

Информатика

Акулина

5 марта, 13:14

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

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

+5

Ответы (2)

Знаете ответ?

Ефросиньюшка · Answer 1

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

Има · Answer 2

var

a: integer;

begin;

Read (a) ;

if a > 0 then

a : = a + 1

else

a : = a - 2;

Writeln ('a = ', a) ;

end.

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

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

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