Question

найти сумму квадратов натуральных чисел, кратных 3, и не привышающих заданное число n
Можно пожалуйста сделать циклом

Answer 1

var
i, n, s: integer;
begin
write('Введите N: ');
readln(n);
s := 0;
for i := 1 to n do
if i mod 3 = 0 then
s := s + sqr(i);
writeln(s);
end.