СРОЧНОООООООО, помогите Напишите программу, которая в последовательности целых чисел...

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

СРОЧНОООООООО, помогите
Напишите программу, которая в последовательности целых чисел определяет количество чисел, оканчивающихся на 5. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0( 0 - признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: количество чисел, оканчивающихся на 5.


Информатика (17 баллов) | 58 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t mod 10)=5).Count.Println
end.

Пример
234 115 210 -55 28 15 0
3
БОГ (150k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей