Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dasha826251
21.02.2023 10:44 •
Информатика
Составить программу нахождения суммы трехзначных чисел кратных 5 и 7 и 9
Показать ответ
Ответ:
datskivvera
25.08.2020 13:48
//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
begin
writeln(range(100,999).Where(x -> x mod 7=0).Where(x -> x mod 9=0).Where(x -> x mod 5=0).Sum);
end.
//"Школьный" вариант
Var
i,s:integer;
begin
for i:=100 to 999 do
if (i mod 5=0) and (i mod 7=0) and (i mod 9=0) then s:=s+i;
writeln(s);
end.
Вывод:
1890
0,0
(0 оценок)
Популярные вопросы: Информатика
13nastuxxa
05.12.2021 15:57
СОРЧНО, НАДО РЕШИТЬ ЗАДАЧИ С 4 по 5 и с 1 по 5 на phyton.(написать код решения) как на первом фото!...
bobbobyashka1
04.01.2021 12:54
Переводить заданные значения числа с одной единицы измерения на другую единицу измерения. а) сколько байтов, сколько битов в 5 Кбайтах? б) сколько байтов, сколько килобайт в 12288...
ampolskaanastas
21.09.2020 08:36
Задание 5. Назовите и опишите позволяющий уменьшить размер документа в формате *.docx. Наименование Описание № задания Критерии оценивания Дескрипторы ...
лиза2741
12.10.2020 12:52
Заполните пропущенные слова и словосочетания в предложениях. ответьте хоть раз....
kurilen
04.09.2020 13:27
Определите три функции процесса. Выпишите правильные ответы. ...
CrasH1990
17.08.2021 15:44
Составить программу pascal: заданы числа a и b. определить, эти числа одного или разных знаков...
Лиза4217
23.03.2021 00:45
Дан одномерный массив a, размер n. найти количество элементов значение, которых равно семи. если таких элементов нет - выдать об этом сообщение. (нарисовать блок-схему)...
dasha2468135
23.03.2021 00:45
Дана последовательность натуральных чисел, завершающаяся числом 0. определите, сколько в последовательности чисел 7. пример: входные данные 1 7 7 9 1 0 правильный ответ 2...
NetBPeMeHu
16.04.2021 15:11
Максим собрал в коробку пауков и жуков всего 8 штук если пересчитать сколько всего ног в коробке покажется 54 ноги сколько же у максима в коробке жуков и сколько пауков...
12345678901456619353
16.02.2023 19:50
1. сколько бит информации содержит сообщение объемом 2048 кб? (ответ-степень 2) 2. сколько кбит информации содержит сообщение объемом 2 в 22 степени байт? (ответ-степень 2) 3. сколько...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Продвинутый вариант
begin
writeln(range(100,999).Where(x -> x mod 7=0).Where(x -> x mod 9=0).Where(x -> x mod 5=0).Sum);
end.
//"Школьный" вариант
Var
i,s:integer;
begin
for i:=100 to 999 do
if (i mod 5=0) and (i mod 7=0) and (i mod 9=0) then s:=s+i;
writeln(s);
end.
Вывод:
1890