Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Finnwolfhardd
27.01.2022 05:26 •
Информатика
Задумано некоторое число х (х< 100). известны числа k,m,n - остатки от деление этого числа на 3, 5, 7. решите через repeat until
Показать ответ
Ответ:
Настя190411
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 оценок)
Популярные вопросы: Информатика
amirking
14.06.2020 14:47
:) заданы четыре числа,введенные пользователем (через клавиатуру) .найти среднее арифметическое....
Заяцэ
11.05.2021 02:05
Постройте аналогичное дерево для арифметического выражения: 6*4+7*(9-1)...
костя663
26.02.2022 19:28
Что делать если учитель так поступает? У нас начался урок информатики, учитель начал объяснять тему Диаграммы , потом сказала что будет практическая на компьютерах по новой теме...
арана19
04.04.2023 09:55
Как называется инструмент растрового редактора, позволяющий копировать цвет пикселя?...
tolia24465
04.08.2022 11:09
1. Описать принцип работы Dual Channel. Написать процент прироста при использовании данной технологии. 2. Описать производителей оперативной памяти 3. Какая разрядность у оперативной...
funfup
24.12.2021 07:57
Ваш остаток на счете пять лет назад составлял 25 000 рублей. в конце каждого года вы добавляли 4500 рублей. сегодня равен 70 000 рублей. какой была ваша среднегодовая ставка?...
nenezkivazak
24.12.2021 07:57
Сообщение записанное буквами из 128 символтного алфавита содержит 32 символа...
Simps0n
17.04.2022 07:40
Вромане война и мир почему пьер разочаровался в масонах?...
Gamer2205395
17.04.2022 07:40
Какой объем 1 м раствора гидроксида натрия требуется для нейтрализации 50 мл 2м раствора азотной кислоты...
2345678234567
17.04.2022 07:40
Какие новые виды оружия появились в годы крымской войны....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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