Напишите программу, которая в последовательности натуралных - вопрос №12831216 от дана34657 12.10.2020 12:19

Question

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

дана34657 · Answer

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....