ок) так много ) я решу)
ты немного непонятно написал условие, я написал два варианта...
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
print(sum)
2) если нужно посчитать сумму чисел которые либо трёхзначные либо заканчиваются на 7 либо кратны 3
if len(str(n)) == 3 or n % 3 == 0 ot n % 10 == 7:
===== 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;
var n := ReadInteger('Мощность первого множества:');
var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
n := ReadInteger('Мощность второго множества:');
var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;
MyCompare(P, Q)
end.
ок) так много ) я решу)
ты немного непонятно написал условие, я написал два варианта...
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.