begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.
либо
i = 1
s = 0
while i != 0:
i = int(input())
if (i % 7 == 0) and (i % 10 ==3 ):
s += i
print(s)
Объяснение:
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.
либо
i = 1
s = 0
while i != 0:
i = int(input())
if (i % 7 == 0) and (i % 10 ==3 ):
s += i
print(s)
Объяснение: