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

Question

Ростяна

20 июня, 20:03

+5

Ответы (1)

Знаете ответ?

Роня · Answer 1

var a, s, i, n: integer;

begin

s:=0;

readln (n) ;

for i:=1 to n do

begin

readln (a) ;

if a mod 6=0 then

s:=s+a;

end;

writeln (s) ;

end.