Нкпишите программу которая в последовательности натуральных чисел определяет сумму всех...

Question

Нкпишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчиващихся на 3

Answer 1

var n,i,s,a: integer;

begin

  readln(n);

  s:=0;

  for i:=1 to n do begin

    readln (a);

    if (a div 7 <> 0) and (a mod 10 = 3) then

      s:=s+a;

  end;

  writeln(s);

end.