Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
imancom2005
22.10.2020 01:09 •
Информатика
Программа паскаль: которая ищет минимальное число, больше 21, которое делится на 7 и оканчивается на 1.
Ответ:
malboro3
08.10.2020 17:41
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
Результат
91
0,0
(0 оценок)
Популярные вопросы: Информатика
Mikhail55Rus
19.03.2020 03:48
2. Найдите значение выражения print(int(25.14+15.458))ответ:...
Nicol03
15.01.2021 20:42
Определите целую часть от деления чисел 105 на 15....
Dilnaz10011
12.03.2020 12:34
Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке [-5;5] и находит сумму положительных элементов...
KinezyOldside
03.10.2020 02:26
В чем разница между input () и Int (input ())?...
elit5555
25.12.2021 16:02
Построить в тетради таблицу истинности для выражения А&(В˅С)...
fidawa2006ozpk8u
14.03.2020 21:46
Сколько весит сообщение, если в нём 100 символов, вес одного символа 4 бит...
Лера20888
16.11.2021 23:46
Укажите корректные высказывания: 1. программную систему можно рассматривать как множество классов, позволяющих создавать, получать доступ и изменять коллекции данных,...
КатяХалина
07.04.2021 19:35
Abcd равнобедренная трапеция bm параллельно cd периметр треугольника abm равен 20 дмmd= 6дмab=cd=8дмнайти периметр...
Vetal321
14.10.2022 04:48
Определи значение выражения:−15,12−(−34,6)−24,85−(−4,54)+(−81,63)...
reginа111222333
08.03.2023 05:56
Найдите значение выражения ( sqrt(128) - sqrt(98) ) * sqrt(8)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
Результат
91