Question

Напишите программу на языке программирования Pascal. Дано натуральное число n, целые числа а₁, а₂, ..., $a_{n}$ .Вычислить сумму чисел а₁, а₂, ..., $a_{n}$, кратных 3.

Answer 1

Var n,i,k,s : integer;
Begin
  s:=0;
  Write('N ? '); Readln(n);
  Writeln('Вводите a1 a2 ... aN');
  For i:=1 to n do
  Begin
    Readln(k);
    If k mod 3 = 0 then s:=s+k;
  end;
  Writeln('Сумма кратных трём: ',s);
end.