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

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

Задать свой вопрос
2 ответа
Как я сообразил, для тебя необходимо составить программу, я сделал на паскале


var a:integer;
begin
read (a);
if agt;0 then
a:=a+1;
if alt;0 then
a:=a-2;
if a=0 then
a:=10;
write(a);
end.
Var a : integer;
begin 
readln(a); 
if a gt; 0 then a := a + 1; 
if a lt; 0 then a := a - 2; 
if a = 0 then a:= 10; 
writeln(a);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт