На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 7 и окан­чи­ва­ю­щих­ся на 3. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — при­знак окон­ча­ния ввода, не вхо­дит в последовательность). Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число: сумму всех чисел, крат­ных 7 и окан­чи­ва­ю­щих­ся на 3.
Входные данные:73,13,14,133,63,0.
Выходные данные:196

А я, в свою очередь, не понимаю, почему из-за вашего "не подумал" должен решать задачу дважды, да еще и неизвестно каким образом, чтобы вам было ясно.

Ничего себе вы дерзкий,и после этого вы ещё магистр.Накручивайте себе балы дальше,моя балл вам=0

мой*

Не пытайтесь на меня свалить свой ляп, это бесполезно.

уже свалил вам балл,только не заплачьте уважаемый.

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018Внимание! Если программа не работает, обновите версию!begin  ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Printlnend.