Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dawavika
03.11.2020 14:56 •
Информатика
Дано целое число а. выведите следующее за ним четное число. при решении этой нельзя использовать условную инструкцию if
Показать ответ
Ответ:
Lesawolk12
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 оценок)
Популярные вопросы: Информатика
Anastasia5555633
09.10.2022 21:48
Нестандартный вопрос. вообщем, что было в этой игре и что мне запомнилось больше. главным героем там был или была вроде лягушка или кто то похожий на лягушку. в начале меня забросило...
Тэхен10
21.04.2021 12:00
Кто Даст Готовый Алгоритм Документом Алг узор_1 Нач поднять перо сместиться в точку (2,1) опустить перо сместиться на вектор (2,3) сместиться на вектор (0,2) сместиться на вектор...
Vinyl98
24.02.2020 08:20
Нарисовать алгоритм для следующих функций...
menshikovborisg
26.05.2022 02:29
1. продолжите фразы. а) свойства объекта б) действия объекта в) поведение объекта г) состояние объекта 2. запишите несколько действий, которые можно совершить с объектами операционной...
TyanochkaTyan
18.02.2023 11:15
Впишите в клеточки названия подходящих устройств: я включил компьютер и набрал на клавеатуре сочинение про свою семью .затем я переписал с букв) последние фотографии,добавил их...
даша3648
27.06.2021 06:06
1)сколько бит информации несет сообщение о том,что занятия состоятся в одной из 36 аудиторий? 2) какое число следует за каждым из данных: (а) 667(внизу 8) (б) 101(внизу 2) 3)...
мага7626
04.06.2022 11:28
Мне с информатикой. нужно в программе кумир ввести два целых числа,найти их произведение,не используя операцию умножения....
striletsnastya
28.10.2020 08:24
Скорость передачи данных через adsl-соединение равна 64000 бит\ c. определите время которое потребуется для передачи через это соединение файла размером 64 кбайт писать с решением...
kattya100
28.04.2020 09:29
Склавиатуры вводится число n, а за ним n элементов массива состоящего из целых чисел.проверить, все ли элементы массива положительны. если да, то ввести фразу да , в противном...
vdyblenkoo
02.10.2021 22:17
148 , нужно написать програмку в формате егэ из сборника+ ещё столько же во втором таком же в сумме 148 за программу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.