emilgaripov87
08.08.2021 19:16

Напишите программы на pascalabc.net
№3:
напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, не кратных 3 и начинающихся на 2. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 300. введённые числа из отрезка [10; 99]. программа должна вывести одно число: количество всех чисел, не кратных 3 и начинающихся на 2.
например: 23 48 22 28 24 0 ==> 3

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
vovabondar28
10.10.2020 17:16

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Count(p -> (p div 10 = 2) and (p mod 3 <> 0))

   .Println

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота