Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
клим512
02.08.2020 08:13 •
Информатика
Дано целое число а. если значение а > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой .
Показать ответ
Ответ:
dasha12328
21.07.2020 10:55
Var a:integer;
begin
readln(a);
if a>0 then a:=a+1 else a:=a-1;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
andrey100573p018xj
03.02.2021 11:22
кто 1.Дан фрагмент алгоритма a:= x mod 10; b := x div 100; s := 0; p := 1; if (a mod 2 = 0) then s := s + a else p := p * a; if (b mod 2 = 0) then s := s + b else p := p * b;...
mari523
19.04.2023 21:15
1)известны данные о мощности двигателей 20 моделей легковых автомобилей выясните есть ли среди них модель мощность двигателя который превышает 200 л.с. 2)напечатайте минимальное...
asyast26
27.12.2021 21:45
Скласти речення зі слів (їх, у, презинтіції, ефекти, анімації, можна, визначають, алгоритм, на, руху, слайді, які, додати, об єктів...
20лиза07
23.03.2023 05:13
Сделайте конспекты по параграфу 3не ,у меня прост информатик пуська...
karina809
27.12.2021 21:45
Упорядочить в порядке возрастания элементы, расположенные между четвёртым и девятым отрицательным числами массива.( паскаль полный код...
yarovikova1981
12.03.2022 07:14
Какая пропускная у модуля памяти pc3-12800 в Гбит/с...
infernalcookie
11.11.2021 05:31
Составить программу,которая запрашивает ввод температуры тела человека и опредиляет,здоров он или болен (здоров при 36 меньше t больше 37)...
AndreyMiix
10.07.2021 21:45
Составить программу заполнения массива из 7 элементов числами от 1 до 30 с генератора случайных чисел и вывести значения его элементов в строку через запятую...
alenadasha80
02.01.2020 19:59
Объясните как преобразовать логическое выражение, записанное напротив Дано , чтобы получилось выражение записанное напротив Результат (см. картинку)...
Anjelika222
24.03.2021 17:45
Принципы машинного обучения, нейронных сетей. конспект короткий 50-100 слов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
if a>0 then a:=a+1 else a:=a-1;
writeln(a);
end.