Напишите программу,которая в последовательности - вопрос №7619342 от kymbat2016 15.08.2020 12:32

Question

Информатика: Напишите программу,которая в последовательности натуральных чисел определяет количество двузначных чисел,кратных 8. программа получает на вход натуральные числа,количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0 - признак окончания ввода,не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30000. программа должна вывести одно число: количество двузначных чисел,кратных 8.

kymbat2016 · Answer

Решение из разряда в одну строчку .// PascalABC.NET 3.2, сборка 1439 от 09.05.2017// Внимание! Если программа не работает, обновите версию!begin  Write(ReadSeqIntegerWhile(k- k 0).Where(k- (k in [10..99]) and (k mod 8=0)).Count)end....