Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
триggg
01.04.2023 03:56 •
Информатика
Дано целое число а. выведите следующее за ним четное число. при решении этой нельзя использовать условную инструкцию if
Ответ:
Анна200361
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 оценок)
Популярные вопросы: Информатика
Сайка1111111
08.11.2021 22:01
Какая команда будет выполнена после следующих действий? 1. Нажми на вкладку Файл, затем нажми на Создать. 2. Нажми на Новая презентация, а затем на кнопку Создать. 1)Удаление...
madina319
06.10.2021 22:22
Переведите из двоичной системы счисления в десятичную систему счисления число 11110...
debnatkh
24.02.2020 10:25
Яке з наведених рівнянь є квадратнима) x²+2x³б) х⁴+2=х2в) 6+х=144г) х=14...
CookieMonster131
17.04.2021 22:11
Да да-дазагадка от Жака Фреско: ты гей или да?...
Arion777
23.03.2021 01:36
Разложи на множители 1−d2−2dd−d2. Выбери правильный ответ: (1−d)⋅(1+d−2d) (1−d−d)⋅(1+d+d) (d−d)2 (d+d)2 (1−d)⋅(1+d)...
MilanaKnyazeva230899
23.03.2021 01:36
проведменять на украинском число: Три тысячи девятсот сорок седьмая (в женском роде)...
MMMOZG
10.12.2022 14:43
Запишіть правильно словосполучення . У/ горі літав лелека, вийти на/зустріч відвідувачам , у/горі Ельбрус знайшли корисні копалини, закололо в/середині, почути в/перше, у/середині...
Бегемот505
01.06.2020 03:42
решите этот пример заранее ...
0689433382
01.06.2020 03:42
Выпишите из предложения словосочетания-Уничтожили воины за собой все преправы....
Bunny265
01.06.2020 03:42
Здравствуйте мне мне с биологией. Отметь понятие, которое не является критерием вида: экологический географический биохимический генеалогический...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.