Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 3. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число — сумму чисел, кратных 3. входные данные: 3,12,25,9 выходные данные: 154

Answer 1

Var a,i,n,sum: integer;
begin
writeln('Введите количество чисел');
readln(n); sum:=0;
for i:=1 to n do begin
 writeln('Введите число');
 readln(a);
 if a mod 3=0 then sum:=sum+a;
end;
writeln('Сумма чисел кратных 3 равна ', sum);
readln
end.