Чем представлена информация в образной форме( выберите несколько вариантов ответа) 1. Буквами
2. Звуками
3. Изображениями
4. Дискретными сигналами ​

ок) так много ) я решу)

ты немного непонятно написал условие, я написал два варианта...

1) если нужно посчитать сумму трёхзначных чисел которые заканчиваются на 7 и делятся на 3 без остатка

sum = 0

n = int(input))

while n != 0:

if len(str(n)) == 3 and n % 3 == 0 and n % 10 == 7:

sum += n

n = int(input))

print(sum)

2) если нужно посчитать сумму чисел которые либо трёхзначные либо заканчиваются на 7 либо кратны 3

sum = 0

n = int(input))

while n != 0:

if len(str(n)) == 3 or n % 3 == 0 ot n % 10 == 7:

sum += n

n = int(input))

print(sum)

===== PascalABC.NET =====

procedure MyCompare<T>(P, Q: HashSet<T>);

begin

 if P.SetEquals(Q) then

   Print('Множества эквивалентны')

 else if P.IsSubsetOf(Q) then

   Print('Первое множенство является подмножеством второго')

 else if P.IsSupersetOf(Q) then

   Print('Второе множенство является подмножеством первого')

 else

   Print('Проверка множеств завершена')

end;

begin

 var n := ReadInteger('Мощность первого множества:');

 var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 n := ReadInteger('Мощность второго множества:');

 var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 MyCompare(P, Q)

end.