Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 26.02.2017
Сообщений: 47

Сумма каждого третьего положительного элемента последовательности, начиная с первого положительного

06.09.2018, 21:58. Показов 1547. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего положительного элемента, начиная с первого положительного.

Входные данные: 29070 23565 -29141 29915 22568 21096 2...
Выходные данные: 1574377
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.09.2018, 21:58
Ответы с готовыми решениями:

Вывести значение каждого третьего элемента последовательности, начиная с первого
Вывести значение каждого третьего элемента последовательности, начиная с первого. Входные данные: Во входном потоке в первой строке...

Вывести значение каждого третьего четного элемента последовательности, начиная с первого
Вывести значение каждого третьего четного элемента последовательности, начиная с первого (через два четных элемента). Входные данные: ...

Вывести значение каждого третьего элемента последовательности, начиная с первого
Признаком окончание последовательности есть число 0. Сам ноль не является элементом последовательности. Пример входного файла: 1 2 3...

3
Модератор
10434 / 5722 / 3405
Регистрация: 17.08.2012
Сообщений: 17,415
07.09.2018, 00:25
Не вполне понятно, что суммировать. Пожалуйста, приведите бОльшую часть последовательности, иначе не ясно, откуда взялся результат (1574377).
0
0 / 0 / 0
Регистрация: 26.02.2017
Сообщений: 47
07.09.2018, 10:21  [ТС]
29070 23565 -29141 29915 22568 21096 21142 -17856 14805 -23201 -5828 -5407 -6146 -13781 -15005 6398 29368 3264 -9083 28923 21159 -13328 6597 -22054 -22791 -3611 9220 29948 -16486 26216 -9574 -29417 -6234 -24660 2935 18486 29254 -6679 -19211 8666 -5874 -17010 -16152 -15137 -8269 -18098 14272 17912 5393 23349 29607 28953 -18315 -26794 -27330 18970 23635 16383 -2441 -21956 550 19795 -3130 -9680 4864 27991 -20327 -24069 -1419 4784 29684 -3467 -14416 -20979 -21506 -15794 9474 1895 -16111 -22916 13386 12325 -15431 2826 25070 1689 14912 -8854 -13830 -9389 7970 21955 8359 11592 -18215 4122 -28318 1125 18995 -20322 -6847 -29346 -12863 -23574 13268 26988 24035 10902 -16498 987 7793 22943 -258 -23641 17174 18242 -2171 -20181 6835 -16224 9168 -4871 -19717 25986 17324 11548 23441 -25087 -29530 -24594 -7885 -21029 -9606 -29106 -12213 -5543 10986 -12131 14926 -18386 1962 -29550 -26521 -8149 -8174 23203 -13463 11333 22679 27263 13025 26729 23235 11575 1965 14183 11900 7795 -3149 17502 5681 -29401 9223 -22731 -22055 -3029 15707 16575 5343 -20481 16602 9532 -25914 1260 -27266 -23597 -3211 11046 -11382 -20462 9512 21403 19084 -9033 -25551 -21902 24738 9487 17703 3398 -25528 4444 -27960 22028 26911 -15244 -13797 16594 -16625 -16190 10903 16953 2117 19896 27253 -6478 -24290 16199 -3591 3616 -28143 5051 164 -11428 2983 2301 16671 -10316 9665 -13377 20689 -27071 17998 -28983 10920 -25758 -1564 -10475 -11521 -13101 18072 18116 -14019 8968 -18847 -6599 -17535 28686 16656 -10967 -14332 -16026 -2561 23061 7632 19705 25205 -2209 -17250 -9928 7059 -29491 -28528 -29097 18381 -26182 1711 -24170 19159 -3796 12806 -17733 -710 26562 8524 -20741 12857 9040 -15992 -5777 17075 23602 26253 27454 9075 -8602 23281 -11157 -26143 1531 -13674 20933 15985 -18944 21887 -11276 -21707 -6265 22857 615 25376 -21381 3789 -19896 1954 2053 18439 1600 -986 -2806 12375 -6844 -9602 -15803 -29107 -22472 18368 24322 -17369 -25486 26706 -29298 13448 -2016 15126 -4600 -29017 17351 -23160 -25849 17152 -28012 -859 10151 -1076 4523 -5670 -23030 -1842 -22282 25656 -24047 -17309 -24558 7626 -26594 -5033 -20970 23303 4356 -7570 -2832 -23510 -3938 19996 9383 -22824 -11712 -27514 -2040 -29538 -21789 -12238 17956 29561 -7258 -8503 12781 5538 -17851 -26281 -23300 14882 -23937 26621 -18817 26989 16277 -10173 7103 -24678 12085 8263 8571 89 6954 -27904 -16721 20282 24201 10103 -29838 -3378 -22624 9878 22740 -17361 -28847 -29438 17229 25735 -22740 9845 9506 -18405 -12558 20698 24320 -10769 -2735 23308 10189 -16473 -12684 15009 15686 23227 -27126 -14177 3363 -29192 -26088 -18144 23838 13999 4369 -23766 -17980 7063 22322 25885 9348 -26769 -13703 -27805 22712 2948 -15731 -29614 26657 -26187 22060 -22817 9199 -20216 27388 493 5742 12663 14556 -19781 659 -8447 10820 -24263 20896 -19453 20530 23555 -20554 -23116 2416 -23979 29927 -22616 -9071 -1263 -15880 -14164 -3096 -29865 -686 -11486 -21263 -7681 28307 -17343 -16808 22194 20251 -21475 -28926 -20317 -17543 10698 15508 -28580 -3867 -3980 16523 -13754 -17829 13928 3260 222 -27209 -11178 -2715 26820 26156 19402 20977 10463 15705 7790 27089 5162 -28057 -3950 11535 -8558 -6174 -17235 -28261 -9484 -6163 8829 -27110 26173 7187 -12184 15881 -2596 5142 -14868 17893 -8701 2963 -5976 19625 -2345 12459 17921 -4916 12944 -12355 22155 -13918 -7568 -11998 29631 9023 17423 -29360 28344 -29589 -6057 7940 -14234 -19710 -8059 -17294 -1939 22097 25477 -14223 -18962 -23136 -10504 -21414 5908 29037 29647 1374 2356 5401 15950 28036 10646 26154 23055 -3965 6032 6564 17911 -1164 -3779 18711 26012 -16094 23486 -5934 -2981 21096 -5895 -3290 -20268 -16411 -13955 -19690 13294 22882 2725 -2375 9191 26669 23380 1462 21458 -10495 10572 5069 11003 -10366 24192 7770 -23990 3018 26561 -29017 25344 -25085 -15037 19447 -8361 -7535 -12063 -9059 23052 20079 29483 -23642 22116 -10014 -27261 1308 -8292 -3594 -2740 0
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33398 / 21508 / 8236
Регистрация: 22.10.2011
Сообщений: 36,906
Записей в блоге: 12
07.09.2018, 10:42
Лучший ответ Сообщение было отмечено Hoype как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var 
  s, cnt, v : integer;
begin
  cnt := 2; s := 0;
  repeat
    read(v); // или чтение следующего элемента массива, если данные в массиве
    if v > 0 then
    begin
      inc(cnt);
      if cnt = 3 then 
      begin
        s := s + v; cnt := 0;
      end;
    end;
  until v = 0;
  writeln(s);
end.
Ответ: 1574377
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.09.2018, 10:42
Помогаю со студенческими работами здесь

Начиная с первого положительного, последующие элементы после положительного поменять на на цифру 0
Помогите решить задачу: Даны действительные числа а1,...,а37. Все члены этой последовательности, начиная с первого положительного,...

Сумма каждого третьего положительного
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента...

Все числа последовательности, начиная с первого положительного, уменьшить на 0,5
Сново здравствуйте дорогие программисты :) Буду вам очень благодарен если вы поможете мне решить ещё одну задачку. ;) Даны...

Как перебрать массив начиная с первого положительного элемента?
Даны действительные числа a,...a. Все члены этой последовательности, начиная с первого положительного, уменьшить на 0.5. using System;...

Уменьшить все числа заданной последовательности, начиная с первого положительного, на указанное число
Даны действительные числа a1,…, a37. Все числа этой последовательности, начиная с первого положительного, уменьшить на 0.5. Помогите плиз....


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru