Паскаль, решите пожалуйста! Напишите программу, которая в последовательности натуральных...

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

Паскаль, решите пожалуйста! Напишите программу, которая в последовательности натуральных чисел находит количество трехзначных чисел оканчивающихся на цифру 8.
Вход: программа получает на вход количество чисел, а затем сами числа. Количество чисел не превышает 1000, а сами числа не превышают 30000.
Выход: программа должна вывести одно число – количество трехзначных чисел оканчивающихся на цифру 8.


Информатика (37 баллов) | 38 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger(ReadlnInteger)
      .Where(t->t.Between(100,999) and (t mod 10=8)).Count)
end.

Пример
5
21311348 348 321412 1080 308 8828
2
(150k баллов)