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

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.Println
end.

Интересная задачка.
попробую объяснить как решал.
сначала расставим то, что известно однозначно.
это то, что Николай встречается со Ольгой
потом Толя - поросенок. потом Миша - Томин
на этом все. теперь размышляем.
Сидоров не Толя и не Саша. а так же не Николай(потому что пришел с Леной)
остаются Вася и Миша. однако фамилию Миши мы знаем. следовательно Сидоров - Вася.
Сразу же записываем к Васе Лену.
теперь с маской.
Он не кот(Иванов), не собака(Петров), не поросенок(Толя), не бычок(Света) следовательно он мишка.
Толя пришел не с Таней и не со Светой. так же не с Леной(Вася) и не с Ольгой. остается только Катя.
Толя не Сидоров(Вася), не Томин (миша), не Иванов(Катя), не Петров(собака) остается Васильев
Николай не Сидоов(Вася), не Томин(миша), не Васильев(Толя) и не Петров(пунтк 1)
следовательно он Иванов.
сразу пишем к нему кота
остается одна фамилия - Петров и это Саша
так же сразу пишем собаку к нему.
из масок остался только бык - Миша
с быков встречается Света
ну и последняя девушка Таня остается Саше
вот и все)
 но можно последовать совету, который написали раньше и составить бооольшую таблицу. тот вариант действительно нагляднее

1)Архиватор – это программа, которая осуществляет сжатие одного или множества файлов с последующей упаковкой в архив. Говоря более простым языком, она может как уменьшить размер одной песни или текстового документа, так и сделать это с несколькими, создав архив - один файл из множества, который потом можно распаковать и на выходе получить исходную информацию до упаковки и сжатия.

2)Архиватор позволяет создавать различные виды архивов: архив из группы файлов или из одного файла, многотомный архив, непрерывный архив, архивы разных форматов (rar, zip, sfx). Многотомный архив – это один архивный файл, хранящийся на нескольких носителях.

3)Подробный обзор и ссылки на скачивание лучших программ для архивации данных — архиваторов — для компьютеров на базе ОС Windows. ... При упаковке некоторых видов файлов их конечный размер может быть уменьшен на 90-95%. Все современные.

Объяснение:

можно ответ лучшим