Напишите программу, которая в последовательности натуральных чисел определяет сумму четных чисел, не кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число, не кратное 3. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - сумму четных чисел, не кратных 3.

Question

Информатика

Ашык

19 июля, 18:13

Напишите программу, которая в последовательности натуральных чисел определяет сумму четных чисел, не кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число, не кратное 3. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - сумму четных чисел, не кратных 3.

+1

Ответы (1)

Знаете ответ на вопрос?

Узбак · Answer 1

Var

a, sum, i, n:integer;

Begin

Writeln ('Введите количество чисел в последовательности') ;

Readln (n) ;

Writeln ('Вводите числа') ;

For i:=1 to n do

begin

Readln (a) ;

If (a mod 2 = 0) and (a mod 3 0) then sum:=sum + a;

end;

Writeln ('Сумма четных чисел не кратных 3 = ', sum) ;

end.