Напишите программу, которая в последовательности - вопрос №8865201 от iadsodasdfs 10.07.2020 11:40

Question

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

iadsodasdfs · Answer

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.

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, крат

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, крат