Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Angelona19
13.04.2020 05:37 •
Информатика
Задумано некоторое число х (х< 100). известны числа k,m,n - остатки от деление этого числа на 3, 5, 7. решите через repeat until
Показать ответ
Ответ:
milyukovnikita
26.08.2020 17:39
Var x,k,m,n:integer;
begin
readln(k,m,n);
x:=0;
repeat
x:=x+1;
until (x mod 3 = k)and(x mod 5 = m)and(x mod 7 = n)and(x<100);
if x<100 then writeln(x) else writeln('Ошибка ввода');
end.
Пример:
0 3 6
48
0,0
(0 оценок)
Популярные вопросы: Информатика
Анна3672
09.11.2022 20:18
Дано три числа. Написати програму, яка знаходить добуток двох більших з них....
Kseniya1521
25.07.2020 14:12
РЕШИТЕ ДВЕ ЗАДАЧИ В ПИТОНЕ !...
алик137
25.11.2020 00:45
,не ориентируюсь! Если можете — объясните! В каких(ой) строчках(е) программы допущены ошибки(а)?...
Misha45456
09.04.2020 22:07
Дано натуральное число. верно ли, что первая цифра не превышает 6? (нужна программа ! )...
Sashalizer
26.02.2020 18:30
Australia• fish• spacethird• wondersgavin: the world s natural 1) wonders are sointeresting! ben: yes! my favourite is the great barrierreef in 2)i can t believeyou...
Наташа151515
27.04.2023 19:30
Выводы об обеспеченности отдельных регионов мира трудовыми ресурсами...
vadka189
01.09.2021 21:07
4) write sentences comparing the different cameras. use the adjectives in brackets and the information in the table. camera a camera b camera c...
Rafaelnodat1
17.08.2020 21:13
Перпендикуляр, опущенный из вершины прямоугольника делит его диагональ на отрезки 36 см и 64 см. вычислить площадь прямоугольника....
суроккк
06.07.2021 17:50
Что лишнее в логической цепочке: зевс, марс, гелиос, афина, аполлон, афродита, веста...
BEDmil00
19.10.2021 04:20
Мектепте ,үйде қолғабыс ету дегенді қалай түсінесің? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(k,m,n);
x:=0;
repeat
x:=x+1;
until (x mod 3 = k)and(x mod 5 = m)and(x mod 7 = n)and(x<100);
if x<100 then writeln(x) else writeln('Ошибка ввода');
end.
Пример:
0 3 6
48