Написать программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 2 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. последовательности всегда имеется число, кратное 2 и оканчивающееся на 4. Количество чисел не превышает 200. Введенные числа по модулю не превышает 400. Программа должна вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4. Пример: Входные данные: Выходные: 5 52 8 4 14 16 34

Question

Написать программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 2 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. последовательности всегда имеется число, кратное 2 и оканчивающееся на 4. Количество чисел не превышает 200. Введенные числа по модулю не превышает 400. Программа должна вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4. Пример:  Входные данные: Выходные: 5 52 8 4 14 16 34

jubiloingse · Answer

Var  i, n, num, sum: integer;begin  num:=0;  read(n);  for i:=1 to n do  begin    read(num);    if (num mod 2 = 0) and (num mod 10 = 4) then      sum:=sum+num;  end;  writeln(sum);end.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?