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

Question

напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 4 и оканчивающихся на 8. Программа получает на вход натуральные числа, кол-во введеных чисел неизвестно, последовательность чисел оканчивается числом 0 (ноль-признак окончания ввода, не входит в последовательность) кол-во чисел не превышает 100. введеные числа не превышают 300. Программа должна вывести одно число: сумму всех чисел кратных 4 и оканчивающихся на 8.

входные данный 8, 22, 16, 28, 18, 0. выходные данные 36

Comments

программа должна быть на паскале

Answer 1

Пишу на QBasic
CLS
FOR I = 1 TO 100
  INPUT A
  IF A MOD 4 =0 THEN
    C=C+A
  END IF
  IF A=0 THEN
    PRINT C
    END
  END IF
NEXT I