Question

Составить программу, которая вычисляет сумму квадратов первых N натуральных чисел до тех пор, пока сумма не превысит число M
ПОЖАЛУЙСТА!((((((

Answer 1

//Язык Pascal

Program Test;

Var M, N, sum: integer;

Begin

sum := 0;
N := 1;

Write('Введите М: ');
Readln(M);

While sum <= M do
begin
sum := sum + N * N;
N := N + 1;
end;

Writeln();
Writeln('Сумма = ', sum);

End.

Answer 2

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var M:=ReadInteger('M=');
  var (s,n):=(0,1);
  while s<=M do begin
    s+=n*n; n+=1
    end;
  Writeln('Сумма ',s)
end.