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

230

387

Посмотреть ответы 2

Ответы на вопрос:

арина1494

Информатика

4,4(8 оценок)

begin

readseqintegerwhile(p -> p < > 0)

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

.println

end.

M10041999

Информатика

4,8(11 оценок)

11011 это 27 в десятичной, поэтому 33 больше 11011

150 000+ пользователей

Оформить подписку