Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
follizy
10.03.2021 18:19 •
Информатика
Программа паскаль: которая ищет минимальное число, больше 21, которое делится на 7 и оканчивается на 1.
Показать ответ
Ответ:
Julianovikova6
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 оценок)
Популярные вопросы: Информатика
Polinakovta
22.04.2020 17:06
Реши анаграммы.Нреска,лавитурака,ринтерп,ливасИскд,дисетак,кгани,котафне...
лолкекчибурек1
09.07.2021 20:05
Складіть блок-схему алгоритму знаходження суми шести чисел перше з яких дорівнює 100, а кожне з п яти наступних у 5 разів менше від попереднього. Виконайте алгоритм....
AnnYtAa1
10.01.2023 08:28
Катети прямокутного трикутника дорівнюють a i b.Знайдіть висоту, проведену до гіпотенузи....
Vladislava256
06.04.2020 20:49
Составить алгоритм вычисления значения функции y=x²-1 в виде блок-схем для целых чисел из [1;10]...
Alexandra0606
30.05.2022 06:03
Объявить массив из 8 элементов ввести значение первых 6 элементов среди которых 4 отрицательных числа. найти сумму положительных элементов. вывести её на экран НУЖНО ВЫПОЛНИТЬ...
danilddp02kr1
28.11.2021 09:59
Кто разбирается в программе excel, вычислить значение функции вариант №3. по нужно составить блок-схему и сделать скриншоты таблицы excel и всех формул. нужно,...
aprishkom
16.05.2021 07:47
Результат сохранить в файле с именем цвета 1) в текстовом процессоре наберите следующий текст, соблюдая абзацы и правила расстановки пробелов и знаком препинания: 2) выполните...
oksa4va
23.08.2022 14:53
До гідрату вищого оксиду сульфуру добавили кілька крапель метилового оранжевого і ретельно перемішали. після цього краплями почали добавляти водний розчин натрій гідроксиду...
juliyakam
29.11.2021 14:58
Люди один или 2 словами как назывались простолюдины в спарте и греции и как назывались арестократы в спарте...
Дура567
29.11.2021 14:58
Напишите сочинение-рассуждение на тему культурное наследие нашей страны ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
Результат
91