Предмет: Информатика,
автор: alexogan79
Напишите программы на PascalABC.Net
Задача №3:
Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, не кратных 3 и начинающихся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 300. Введённые числа из отрезка [10; 99]. Программа должна вывести одно число: количество всех чисел, не кратных 3 и начинающихся на 2.
Например: 23 48 22 28 24 0 ==> 3
Ответы
Автор ответа:
0
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Count(p -> (p div 10 = 2) and (p mod 3 <> 0))
.Println
end.
Интересные вопросы
Предмет: Українська мова,
автор: sofiya131048
Предмет: Математика,
автор: Matvii228
Предмет: Алгебра,
автор: kubahnazar520
Предмет: Математика,
автор: Chase2
Предмет: География,
автор: alex190104