Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
proskurina773
05.05.2023 13:21 •
Информатика
Дано целое число.если оно является положительным,то прибавить к нему 1,в противоположном случае вычесть из него 2.вывести полученное число.
Ответ:
Maika01
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 оценок)
Ответ:
AlexSubbotin11
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 оценок)
Популярные вопросы: Информатика
Есенин6261
24.02.2020 07:10
Вexcel e, с каждой строкой формула должна увеличиваться. формула мин [f(x) + f(a- где а - номер строки. пример: № b c 0 1 1 1 2 2 2 3 0 есть два столбца с произвольными числами....
hshsjsnsvsbsns17282
30.05.2020 17:59
Как называются искажения изображения, звука, видео и т.д., вызываемые сжатием с потерями?...
Hunterxxxx
16.08.2022 07:59
Нужна схема нахождения диаметра в скрэтч ну или сор по ивт 6класс 3 четверть...
TDashaS
19.05.2021 17:57
какой отряд лучше всего собрать в геншин? у меня есть: Чун юнь, розария, Бой доу, Райден, ноэлль, сара, барбара, сян лин, джинн....
Sabziro18
15.02.2023 12:58
1. Если информация, содержащаяся в ячейке таблицы, неизвестна, то какой в ней ставится символ? а) хб) ?с) !d) -e) Ничего не ставится2. Информация, представленная в виде таблицы:а)...
FullDown
31.01.2023 15:00
2. какое значение будет иметь переменная b после выполнения следующих операторов присваивания: a: =3; b: =a+9; b: =a+b; b: =a-b+b/a. 3. написать программу, которая вычисляет...
Aleksey8b
08.01.2021 22:10
Задание 4. Задана кодовая информация в виде ряда чисел. 1) Декодируй эту информацию и запиши ответ: 23 27 25 28 43 45 32 16 29 2) Закодируй слово ИНФОРМАТИКА...
lЕвгешкаl
27.08.2021 13:19
ответьте на вопросы очень нужно...
аврсчрм
14.04.2020 00:57
Верно ли утверждение, что языки программирования низкого уровняориентированы на использование вконкретном устройстве (компьютер),сложны в освоении, требуют хорошегознания архитектуры...
vlados20033
07.07.2020 17:41
Найдите площадь прямоуголника со сторонами 30 см и 27 см...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
read(a);
if a>=0 then a:= a+1
else a:= a-2;
write(a);
end.
begin
readln(a);
If a>0 then a:=a+1 else a:=a-2;
writeln(a);
end.