Question

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

Answer 1

var

i,sum,n,x:integer;

Begin

sum:= 0;

readln(n);

for i:=1 to n do begin

readln(x);

if(x mod 7 = 0) and (x mod 5 = 0) then

sum:=sum+x;

end;

writeln(sum);

End.