ПОМОГИТЕ ПОЖАЛУЙСТА! Напишите программу, которая в последовательности натуральных чисел...

0 голосов
23 просмотров

ПОМОГИТЕ ПОЖАЛУЙСТА!
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.


Информатика (52 баллов) | 23 просмотров
0

Язык

0

Примите к сведению, что слово "чувак" имеет не только тот смысл, в который вкладывают в него подростки и люди, не очень далеко ушедшие от них по стилю общения.

0

Тогда теперь вы примите к сведению. Здесь сидят только школьники. Поэтому ваш "PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018" никому не сдался. По информатике здесь зачастую задаются вопросы ПО ШКОЛЬНОЙ ПРОГРАММЕ, где затрагивается максимум только поверхность pascal abc. Поэтому ваши ответы с функциями из новой сборки ростовского чуда НИКОМУ НЕ НУЖНЫ.

0

Отучайтесь говорить за всех. Если Вам не повезло с учителями и программой, не надо обобщать на остальной мир. Страдайте молча.

0

Дядя, школьная программа. В учебниках Босова/Угриновича даже рекурсий не проходят. Так же я не видел на всероссийской новых сборок паскаля.

Дан 1 ответ
0 голосов
Правильный ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqInteger(ReadInteger('n=')).Where(t->t mod 5=0).Sum.Println
end.

Пример
n= 8
24 55 -63 0 -40 150 67 44
165
(150k баллов)