Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Viki3888
10.02.2022 15:10 •
Информатика
Дано целое число а. выведите следующее за ним четное число. при решении этой нельзя использовать условную инструкцию if
Ответ:
skvorcova19991993
12.06.2020 08:41
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kidz123
09.03.2021 07:27
Замініть для об єкта dog2 значення атрибута name...
ee444ed4
26.02.2021 14:21
Какая информация снижает эффективность принимаемых решений...
silinadasha
29.03.2020 12:18
Чем отличается интерфейс настольного компьютера от ноутбука?...
kkarimov111
02.05.2020 19:42
Напишите программу и блок-схему y=1/((x-3)(x+5))...
moiseenkoevgeni
08.05.2022 06:24
Что такое контекст? почему меню, которое появляется при щелчке правой кнопкой мыши на объекте, называют контекстным...
Asya0199
16.08.2020 00:38
Составить программу для решения . даны 2 числа. если их разность неотрицательна, то каждое из чисел возвести в квадрат, и заверить числа их модулями в противном случае....
МейнКун05
09.02.2020 19:51
составьте программу которая удаляет из слова комар символы ар...
maxpotekhin2002200
27.04.2023 09:27
По данному уравнению реакции cr2o3+3h2=2cr+3h2o вычислите объём водорода (н.у), необходимый для получения 5,2 грамм хрома (ответ запишите с точностью до сотых)....
L1mbada
27.04.2023 09:27
Ціна автомобіля спочатку зрослана 10%, а потім знизилася на 10%. як і на скільки відсотків змінилася ціна автомобіля після двох переоцінок?...
iLoveChemistry88
27.04.2023 09:27
Доля жінки у творчості шевченка твір-роздум...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.