Напишите программы на pascalabc.net
[вариант №1]
№1:
напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, которые принадлежат [30; 55]. количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 70. введённые числа не превышают 100. программа должна вывести одно число: количество чисел из [30; 55]. например: 23 48 12 18 34 0
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Count(p -> p.InRange(30, 55)).Println
end.