Question

Паскаль!Найти сумму не превышающую 50-ти квадратов натуральных чисел!!!!!

Answer 1

сумма квадратов натуральных чисел до 50

var
    i: integer;
    s := 0;

begin
    for i := 1 to 50 do
        s := s + i * i;
       
    writeln(s);
end.

сумма квадратов натуральных чисел ближайшая к 50

var
    s := 0;
    i := 0;

begin
    repeat
        s := s + i * i;
        i := i + 1;
       
    until s + i * i >= 50;
   
    writeln(s);
end.