Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Папарапдрд
06.02.2022 05:29 •
Информатика
Составить программу, которая в ответ на запрос о введении числа прибавляет к нему 1, если оно меньше 100 и вычитает 1, в противном случае. 9 класс
Ответ:
lolipop891
05.10.2020 16:09
Var
a:integer;
begin
readln(a);
if (a<100) then
a:=a+1
else
a:=a-1;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
issirisoyf2q6
25.02.2022 19:48
Какие цифры следует поставить вместо звёздочек? 6*5*+*8*4=12756 *7*+6*3=*568...
ziketeam123
09.05.2022 02:02
Написать на паскаль 1)сумма квадратов от 1 до n s=1+4+9+...
AriPanowa2005
30.01.2023 05:37
) Написать программу, которая в двумерном массиве типа int размером N строк и M столбцов циклически сдвигает элементы каждой строки вправо на число позиций, равное индексу...
АНДрЕЙ12277777
21.02.2021 03:48
Андрей скачивает файл по соединению в течении 0,075 минуты объемом 0,0625 Гб, определите скорость этого соединения....
FACE02
26.09.2020 00:09
Текст объёмом 124 кб состоит из 64 символов. Узнать мощность алфавита ! с Решением!!...
миларыбка
29.04.2021 09:20
Мощность алфавита есле обём текста 4 кб состоит из 64 символов...
Эммикэт
03.10.2021 08:10
Найди наибольшее целое число M, для которого истинно высказывание: (M 14) И НЕ (M чётное)....
MCREW
22.01.2022 11:11
N91. Мальчик с кнопочного мобильного телефона написал сообщение другу. Используя клавиатуру кнопочного телефона, выясните,что было написано в его сообщении?22-1-111-1-4...
arshin1
11.07.2020 09:42
5. Заполните пропущенные слова и словосочетания в предложениях. - это программа для моделирования простых трехмерных объектов: зданий, мебели, интерьера. Такие объекты,...
gerasi1
09.08.2020 14:07
Пользователь работал с папкой Участники. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень вниз....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a:integer;
begin
readln(a);
if (a<100) then
a:=a+1
else
a:=a-1;
writeln(a);
end.