![Фотий](https://sproshu.net/uploads/ava/2/ava11332.jpg)
Фотий
4 год назад
Пожалуйста посчитайте пжНапишите программу,которая в последовательности натуральных чисел определяет количество двузначных чисел,кратных 8. Программа получает на вход натуральные числа,количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0 - признак окончания ввода,не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число: количество двузначных чисел,кратных 8.
ОТВЕТЫ
![Karoliina Anna](https://sproshu.net/uploads/ava/3/ava2637.jpg)
Karoliina Anna
Oct 24, 2020
begin
Write(ReadSeqIntegerWhile(k->k>0).Where(k->(k in [10..99]) and (k mod 8=0)).Count)
end.
212
Смежные вопросы: