Найти сумму чисел оканчивающихся на 4 - PascalABC.NET
Формулировка задачи:
Дана последовательность чисел. Найти сумму чисел оканчивающихся на 4.
Решение задачи: «Найти сумму чисел оканчивающихся на 4»
textual
Листинг программы
begin var A := ReadArrInteger(ReadlnInteger('Count:')); var Sum := 0; foreach var n in A do Inc(Sum, n * Ord(n mod 10 = 4)); WritelnFormat('Sum = {0}.', Sum); end.
Объяснение кода листинга программы
- Ввод количества чисел для обработки (ReadlnInteger)
- Создание переменной для хранения суммы (Sum)
- Перебор всех чисел (foreach)
- Увеличение суммы на произведение числа на код операции (Inc)
- Вывод результата (WritelnFormat)