Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/29: Рейтинг темы: голосов - 29, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 26.09.2017
Сообщений: 5

Найти количество целых чисел от a до b включительно, которые делятся на 7

26.09.2017, 16:24. Показов 5820. Ответов 4

Студворк — интернет-сервис помощи студентам
Найдите количество целых чисел от a до b включительно, которые делятся на 7
не могу решить
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.09.2017, 16:24
Ответы с готовыми решениями:

Найти количество целых чисел от а до b включительно, которые делятся на 12 (доработка кода)
Найти количество целых чисел от а до b включительно, которые делятся на 12. Что не так написал? Dim a,b,i as Integer a=TextBox1.Text ...

Дан одномерный массив целых чисел. Найти количество и сумму тех членов массива, которые делятся на 5 и не делятся на
Дан одномерный массив целых чисел. Найти количество и сумму тех членов массива, которые делятся на 5 и не делятся на

Найти количество целых чисел, которые не более 1000 и не делятся ни на одно из чисел 6, 10, 15
найти число целых чисел которые не более 1000 и не делятся ни на одно из чисел 6, 10, 15

4
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33376 / 21500 / 8236
Регистрация: 22.10.2011
Сообщений: 36,896
Записей в блоге: 11
26.09.2017, 16:47
Язык программирования указывать будем?
1
0 / 0 / 0
Регистрация: 26.09.2017
Сообщений: 5
26.09.2017, 17:10  [ТС]
pascal,delphi
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
26.09.2017, 17:34
Pascal
1
2
3
k:=0;
for i:=a to b do
if i mod 7=0 then inc(k)l
0
Alvin Seville
 Аватар для Соколиный глаз
343 / 273 / 134
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 22
02.10.2017, 13:31
Pascal
1
2
3
begin
  WritelnFormat('Количество чисел, которые делятся на 7 равно = {0}.', Range(ReadlnInteger('A:'), ReadlnInteger('B:')).Where(x -> x mod 7 = 0).Count());
end.
Добавлено через 1 минуту
Если на PascalABC.Net 3.0.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.10.2017, 13:31
Помогаю со студенческими работами здесь

Найти количество целых положительных чисел от 200 до 9000, которые делятся ровно из чисел 16,18,15
5. Найти количество целых положительных чисел от 200 до 9000, которые делятся ровно из чисел 16,18,15.

Дан файл целых чисел, найти числа которые делятся на 3 и не делятся на 5
Зачада на файлы в pascale: Дан файл целых чисел, найти числа которые делятся на 3 и не делятся на 5.Буду очень благодарен!

Найти среди компонентов файла количество чисел, которые делятся на 2, но не делятся на 4
Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Найти среди компонентов файла количество чисел, которые...

Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.
Надо срочно решить несколько задач, моя вечная благодарность решившему прилагается: 1)Составить программу для вычисления степеней чисел...

Найти количество чисел в массиве которые делятся на 3, но не делятся на 7
Заполнить массив и найти количество чисел в массиве которые делятся на 3, но не делятся на 7 и вывести их в listbox


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru