12keti
09.03.2020 10:03

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
tolkynjeon2003
09.07.2020 23:34
Var a: integer;
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
0,0(0 оценок)
Ответ:
али394
09.07.2020 23:34
Var a :longint;
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота