Предмет: Информатика,
автор: handycemetery
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 3.
Входные данные:73,13,14,133,63,0.
Выходные данные:196
Ответы
Автор ответа:
1
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.
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 7=0) and (t mod 10=3)).Sum.Println
end.
Приложения:
![](https://files.topotvet.com/i/9e6/9e65f89f951bc923b7e34b768dae19d2.jpg)
handycemetery:
А можешь решить не так заумно,как-то для 8 класса,просто ничего не понял,и объяснить не смогу.
Похожие вопросы
Предмет: Русский язык,
автор: molniya081
Предмет: История,
автор: obodanna898
Предмет: Геометрия,
автор: Vadzer0
Предмет: Математика,
автор: endercat11654