Необходимо составить программу в Паскале которая: Вычислить сумму квадратов первых 15 натуральных чисел, каждое из которых при делении на 5 дает в остатке 3 .

Предыдущий
вопрос Следующий
вопрос

program SumOfSquares;
var
i, n, sum: integer;
begin
sum := 0;
n := 0;

for i := 1 to 100 do
begin
if (i mod 5 = 3) then
begin
sum := sum + i * i;
n := n + 1;
end;

end;

writeln('Сумма квадратов первых 15 натуральных чисел, которые при делении на 5 дают в остатке 3: ', sum);
end.