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

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

06.09.2018, 21:58. Показов 1523. Ответов 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
Модератор
10390 / 5678 / 3399
Регистрация: 17.08.2012
Сообщений: 17,323
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
33371 / 21497 / 8234
Регистрация: 22.10.2011
Сообщений: 36,893
Записей в блоге: 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
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru