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

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

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


Информатика (17 баллов) | 19 просмотров
Дан 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 баллов)