Помогите составить программу ** паскале Вычислить сумму чисел натурального ряда,...

Question

Помогите составить программу на паскале Вычислить сумму чисел натурального ряда, делящихся на 3, до тех пор, пока сумма не превысит 500. Определить число членов суммы. Значение суммы и число ее членов вывести на экран с соответствующими комментариями.

Answer 1

Вроде получилось:

var a,b,s:integer; 
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;<br>end;
end;
writeln('Сумма чисел = ', s);
end.

Результат:

---