Найти сумму чисел оканчивающихся на 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.

Объяснение кода листинга программы

  1. Ввод количества чисел для обработки (ReadlnInteger)
  2. Создание переменной для хранения суммы (Sum)
  3. Перебор всех чисел (foreach)
  4. Увеличение суммы на произведение числа на код операции (Inc)
  5. Вывод результата (WritelnFormat)

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы