Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
1SyhakJS2
10.07.2021 13:58 •
Информатика
Написать программу в паскале 8)найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, 10 дает в остатке 1
Показать ответ
Ответ:
Рожок400000
31.07.2020 01:52
Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
DashaBudlevskaya
26.05.2023 08:27
. Свободный объем оперативной памяти компьютера 128 Кбайт . Сколько страниц поместится в ней , если на странице 16 строк по 32 символа в строке...
Thefirstthing
28.02.2020 09:00
Условия, состоящие из одной операции сравнения, называются: 1. линейными 2. сложными3. простыми4. составными...
ЭмилиСтоун11
21.07.2021 05:05
0,7425 в 10 системы счисления. перевести в 2, 8,16 систему счисления.с проверкой!...
mirpodrostka
27.05.2023 10:49
1. Для построения диаграммы Excel необходимо: a. Подготовить числовые данные на одном листе. b. Подготовить числовые данные в одной книге. c. Выделить необходимые данные....
kfkkffkdkd
21.03.2023 16:36
Представить числа 4510 и 8510 для записи в памяти компьютера...
Rimmakrasa
07.11.2021 03:20
Помагите с четвёртого заданием, если не сложно. Буду за это благодарна 4)...
dinagasanova12
07.04.2021 04:58
1. Установи соответствие между свойством и характеристикой свойств живых организмов: № Свойство живого организма Характеристика свойств1 Рост А живых организмов воспроизводить...
sofafomenkosofa
07.04.2021 04:58
2. Связь особенностей природы с горным рельефом и внутриконтинентальным расположением региона. ответьте...
Марат991
30.03.2022 14:28
. 1. Укажите долину внутреннего Тянь-Шаня а) Алайская б) Чон-Кеминская в) Тогуз-Торосская г) Таласская д) Сары-Джазская 2. Какой хребет не входит в состав Алай-Туркесстанский...
Danyaukos
12.05.2022 13:50
2. Берілген сөздер мен сөз тіркестерін қолданып, сөйлем құра. Кранды ашық қалдыру, ваннаға жуыну, жемістердікранның астына жуу, киімді кір мәшинеге толтырмайсалу, бақшаны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
end.