Question

Составить программу подсчета суммы чисел от 1 до n, которые делятся на 3

Answer 1

var i,n,s,a: integer;

begin

write('Сколько чисел вы хотите ввести: ');

readln(n);

writeln('Введите числа: ');

for i:= 1 to n do

begin

read(a);

if a mod 3=0 then s:=s+a;

end;

write('Сумма чисел кратных трём: ',s);

end.