Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
petrakovatatya
20.10.2020 18:27 •
Информатика
Программа паскаль: которая ищет минимальное число, больше 21, которое делится на 7 и оканчивается на 1.
Показать ответ
Ответ:
aselkulmagambet
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 оценок)
Популярные вопросы: Информатика
s1453849
16.04.2022 15:27
1) в каталоге находятся файлы со следующими именами: crab.txt crash.text cram.text chronos.txt traffic.txt ucraine.txt ucraine.tab определите, по какой из масок...
Svetarozen
02.01.2020 22:47
с информатикой! См.фото! ! Разработать функцию min(a,b) для нахождения минимального из двух чисел. Вычислить с нее значение выражения z=min(3x,2y)+min(x-y,x+y)...
stasbrega
25.05.2023 08:07
Привет, у меня вопрос, который касается информатики. Работу необходимо оформить в Excel (VBA). + Ко всему оформить график на основе полученных результатов. Заранее...
12345678998765432129
20.06.2020 11:08
Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 1280 × 96 пикселей при условии, что...
mannanova0202
15.08.2020 03:11
решить 3 вариант в MS Еxcel...
zoyasvet
21.05.2022 03:11
C++ Дано файл, элементами которого являются целые числа. Определить количество цифр, которые принадлежат диапазону [a, b]....
jak15
15.09.2022 23:08
Построить ориентированный граф для автомата Мили. Автомат представляет собой циклический счетчик импульсов от 0 до 5. На выходе автомата формируется сигнал y = 0,...
svetokot2005
30.01.2021 01:08
Подробная информация о смартфоне?...
pedyxa12
20.03.2020 11:50
Выполнить по информатике! анализ диаграммнапишите все минусы и плюсы диаграмм в microsoft world...
shildebaev01
20.03.2020 11:50
Язык python (питон)! нужно! заранее .1)напишите программу, которая вводит четырёхзначное натуральное число и переставляет его первую и последнюю цифры, например,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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