Напишите программы на pascalabc.net
[вариант №1]

№1:
напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, которые принадлежат [30; 55]. количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 70. введённые числа не превышают 100. программа должна вывести одно число: количество чисел из [30; 55]. например: 23 48 12 18 34 0

vikap754p08qzb vikap754p08qzb    1   29.11.2019 16:18    2

Ответы
kpoo1 kpoo1  10.10.2020 17:06

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Count(p -> p.InRange(30, 55)).Println

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика