Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Nagornovani2002
17.04.2022 13:50 •
Информатика
Написвть программу которая будет запрашивать у пользователя целые числа до тех пор пока не будит введено чётное. паскаль
Ответ:
sasasara97ag
09.08.2020 23:18
Uses crt;
var a: Integer;
begin
while (a mod 2) <> 0 do
readln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
jgkdjsnsnbdndndndjd
12.05.2021 15:25
Скорость передачи данных через некоторое соединение составляет 512000 бит/сек. Определите наибольший размер файла в байтах, который может быть передан через данное соединение...
Вольфыч228
06.12.2020 13:36
Что такое нуб?в стандоффе или в кс го?...
лера1231231
03.03.2023 13:04
Информатика WWW деген не ?...
eraly2
09.09.2020 00:59
Знайти послідовність чисел якщо 1 число = 3 а кожне наступне попередньо помножене на 3 останнє число не перевищує 30...
MaxPlayTheme
24.04.2021 09:03
Какой формат архива из ниже перечисленных является наиболее распространенным и подходящих для пересылки файлов другим людям? выберите вариант ответа: arj zip 7z img iso...
Alina2627848
24.04.2021 09:03
Придумать 3 ситуации и написать для каждой: 1. что является объектом моделирования 2. цель моделирования 3. моделируемые характеристики 4. что является моделью в одной из ситуаций...
Ramzi085
22.01.2020 03:06
Через массив задать положительные и отрицательные числа, подсчитать количество и тех и других. в c++...
валентина268
19.06.2022 07:06
Будут ли отличаться друг от друга файлы до конвертации и после и чем?...
baukovaevgehia2
19.06.2022 07:06
Создать командный файл, который бы выводил на экран все файлы заданного расширения. если расширение при вызове командного файла не заданно вывести: расширение не введено , если...
polykanasch201
18.07.2022 05:28
Расположите величины в порядке убывания: 1024 бита, 1000 байт, 1 бит, 1 байт, 1 килобайт...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a: Integer;
begin
while (a mod 2) <> 0 do
readln(a);
end.