Форум программистов, компьютерный форум, киберфорум
C для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 5.00/18: Рейтинг темы: голосов - 18, средняя оценка - 5.00
3 / 3 / 0
Регистрация: 01.11.2018
Сообщений: 33

Массив: вычислить количество и сумму чисел, кратных 25, в диапазоне от 983 до 1150

30.11.2018, 18:40. Показов 3830. Ответов 29
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем доброго времени суток. Уважаемые программисты, подскажите пожалуйста, как вычислить через массивы:
Вычислить количество и сумму чисел, кратных 25, в диапазоне от 983 до 1150.
Заранее благодарен.

Добавлено через 1 час 3 минуты
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Без массива получилось вот что:
#include"stdio.h"
#include"conio.h"
#include"math.h"
 
void main()
{
    int i, a = 0, k = 0;
    for (i = 985; i <= 1150; i+=25)
    {   
        if ((i % 25) == 0); 
        k = k + 1;
        a += i; 
    }
    printf("\n Kol = %i", k);
    printf("\n Summ = %i", i);
    getch();
}


Подскажите, пожалуйста, как с массивом вычислить?
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.11.2018, 18:40
Ответы с готовыми решениями:

Массив: Вычислить сумму неотрицательных чисел, стоящих на местах, кратных 3, и количество чисел равных заданному T.
Задан динамически массив чисел. Программа должна: 1) вводить размерность и элементы массива; 2) вводить некоторые дополнительные...

Вычислить количество положительных чисел, кратных 7 и не кратных 5, и сумму отрицательных элементов
Вводится последовательность целых чисел, 0 – конец последовательности. Вычислить количество положительных чисел, кратных 7 и не кратных 5,...

Вычислить сумму и количество кратных 7 чисел от a до в
var a,b,s,k,x:integer; begin writeln('введи начало интервала'); readln(a); writeln(' введи конец интервала'); readln(b); x:a; ...

29
Диссидент
Эксперт C
 Аватар для Байт
27714 / 17332 / 3810
Регистрация: 24.12.2010
Сообщений: 38,978
01.12.2018, 01:26
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от analo govnet Посмотреть сообщение
ПО-КА-ЗЫ-ВАЙ
П-О-С-Т 16
C
1
2
if (A%d) A = ((A+d)%d)*d;
for(i=A; i<=B; i+=d) ...
A < B - концы интервала
d - на что делится
0
 Аватар для analogov net
2532 / 1130 / 495
Регистрация: 17.11.2018
Сообщений: 2,840
01.12.2018, 01:44
Байт, как это можно применить к данной задаче? Ты можешь на примере конкретном показать?

Добавлено через 1 минуту
А если иф не исполнится,то что тогда?
0
Диссидент
Эксперт C
 Аватар для Байт
27714 / 17332 / 3810
Регистрация: 24.12.2010
Сообщений: 38,978
01.12.2018, 10:39
Цитата Сообщение от analo govnet Посмотреть сообщение
А если иф не исполнится,то что тогда?
Ничего...
analo govnet, смотри, вот твоя задача
Новая задача:
вычислить количество и сумму чисел, кратных числу N, введённому пользователем , в диапазоне(который тоже может быть введён с клавы) от 983 до 1150.
C
1
2
3
4
5
6
7
8
9
A = 983;
B = 1150;
d = N;
s = sc = 0;
if (A%d) A = ((A+d)%d)*d;  // если A не делится на d, Заменяем его максимальным кратным
for(i=A; i<=B; i+=d) {
  s++;
  sc += i;
}
2
 Аватар для analogov net
2532 / 1130 / 495
Регистрация: 17.11.2018
Сообщений: 2,840
01.12.2018, 15:44
Байт, не, ну я предполагал, что в мире есть много извращенцев (в хорошем смысле слова ), но не до такой же степени. Короче, я твою идею понял, но реализацию нет. Будет время, помозгую над этим тоже..

Добавлено через 2 часа 55 минут
Байт, вообщем так. Идея твоя оказалась верной.
Но поскольку в твоём псевдокоде я не разобрался, то пришлось писать свой.
короче, вся задача сводится к вычислению первого числа из заданного диапазона, кратного числу N.
А дальше всё просто...
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
int main()
{
    int sum = 0;
    int cnt = 0;
    int beg = 983;
    int end = 1150;
    int   d = 25;
 
    printf( "num : " ) ;
    for ( int i = beg - beg % d + d ; i <= end; i += d )
    {       
        printf ( "%d ", i ) ;
        sum += i ;
        cnt ++   ;      
    }
    printf( "\nsum : %d"  , sum );
    printf( "\ncnt : %d\n", cnt );
 
    return 0;
}
Но за идею спасибо.

Добавлено через 7 минут
Нет, там ошибка в моём коде. Счас исправлю.
0
Диссидент
Эксперт C
 Аватар для Байт
27714 / 17332 / 3810
Регистрация: 24.12.2010
Сообщений: 38,978
01.12.2018, 16:00
Цитата Сообщение от analo govnet Посмотреть сообщение
в твоём псевдокоде я не разобрался,
Чего там разбираться-то?
Цитата Сообщение от analo govnet Посмотреть сообщение
задача сводится к вычислению первого числа из заданного диапазона, кратного числу N.
Совершенно верно. Теперь так. Если A делится на N, то делать ничего не надо. Оно и есть то самое первое число.
A + N - число немножко больше нам нужного.
x = (A + N) % N - частное от деления - сколько раз укладывается N в этом числе.
Ну и x*N - то, что нам нужно.
Возьми несколько пар A и N, примени эту формулу, и все сразу станет ясно. Арифметика - простейшая!
0
 Аватар для analogov net
2532 / 1130 / 495
Регистрация: 17.11.2018
Сообщений: 2,840
01.12.2018, 16:02
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
int main()
{
    int sum = 0;
    int cnt = 0;
    int beg = 999;
    int end = 1149;
    int   d = 25;
    int   k = beg % d;
 
    printf( "num : " ) ;
    for ( int i = beg + ( k ? d - k : 0 ) ; i <= end; i += d )
    {       
        printf ( "%d ", i ) ;
        sum += i ;
        cnt ++   ;      
    }
    printf( "\nsum : %d"  , sum );
    printf( "\ncnt : %d\n", cnt );
 
    return 0;
}
0
Диссидент
Эксперт C
 Аватар для Байт
27714 / 17332 / 3810
Регистрация: 24.12.2010
Сообщений: 38,978
01.12.2018, 16:06
А у тебя маленькая ошибка. beg - beg%d + d - оно хорошо, когда beg на d не делится. А ежели делится, то ты лишнее d прибавляешь. Опять же, посмотри на паре простых (не в смысле теории чисел) примеров

Добавлено через 1 минуту
Цитата Сообщение от analo govnet Посмотреть сообщение
for ( int i = beg + ( k ? d - k : 0 ) ; i <= end; i += d )
Во! Теперь похоже на правдочку.
0
 Аватар для analogov net
2532 / 1130 / 495
Регистрация: 17.11.2018
Сообщений: 2,840
01.12.2018, 16:08
Цитата Сообщение от Байт Посмотреть сообщение
Чего там разбираться-то?
Да и в своём с трудом разбираюсь... Особенно на следующий день...
0
Диссидент
Эксперт C
 Аватар для Байт
27714 / 17332 / 3810
Регистрация: 24.12.2010
Сообщений: 38,978
01.12.2018, 16:10
Цитата Сообщение от Байт Посмотреть сообщение
// если A не делится на d, Заменяем его максимальным кратным
Я тут в коммете ошибся малек. Минимальным, конечно же.
0
 Аватар для analogov net
2532 / 1130 / 495
Регистрация: 17.11.2018
Сообщений: 2,840
01.12.2018, 16:15
Цитата Сообщение от Байт Посмотреть сообщение
Я тут в коммете ошибся малек. Минимальным, конечно же.
Да, я сначала не мог врубиться, а потом понял, что это 'очепятка'.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.12.2018, 16:15

Массив: Найдите количество неотрицательных чисел и определите сумму чисел, стоящих на местах, кратных 3...
Дано задание по практике в среде delphi 7: Найдите количество неотрицательных чисел и определите сумму чисел, стоящих на местах, кратных...

Вычислить сумму и количество элементов массива целых чисел, кратных 5
Вычислить сумму и количество элементов массива целых чисел кратных,5. Количество элементов в массиве вводится в массиве вводится с...

Вычислить сумму и количество чисел кратных 3 из десяти введенных с пульта
Вычислить сумму и количество чисел кратных 3 из десяти введенных с пульта. Добавлено через 18 минут если кому нужно!! ...

Вычислить сумму чисел с промежутка [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4
Вычислить сумму чисел, принадлежащих промежутку ; подсчитать количество нулей, стоящих на местах, кратных 4.

Найти сумму чисел кратных 17 в диапазоне
Найти сумму чисел от X1 до X2 кратных 17.


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

Или воспользуйтесь поиском по форуму:
30
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru