Question

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

Answer 1

Ответ:

var n, i, sum, k:Integer;

begin

sum:=0;

readln(n);

for i := 1 to n do

begin

 readln(k);

 if (k mod 7 = 0)then begin

  sum:=sum+k;

 end;

end;  

writeln(sum);

end.