Помогите написать программу ** паскале. СПАСИБО Найти 11 последовательных натуральных...

Question

Помогите написать программу на паскале. СПАСИБО
Найти 11 последовательных натуральных чисел, сумма квадратов которых сама является квадратом натурального числа.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var t: real;
var i:=1;
while true do
begin
t:=range(i,i+10).Select(x->x*x).Sum();
if (frac(sqrt(t))=0) then break;
inc(i);
end;
range(i,i+10).Println();
end.

Answer 2

Var
  i,n,s:integer;

begin
  n:=1;
  while true do begin
    s:=0;
    for i:=n to n+10 do s:=s+i*i;
    if s=Sqr(Trunc(Sqrt(s))) then break;
    n:=n+1
    end;
  Write('Сумма квадратов чисел на интервале [',n,';',n+10,'] = ');
  Writeln(s,' = ',Trunc(Sqrt(s)),'^2')
end.

Результат
Сумма квадратов чисел на интервале [18;28] = 5929 = 77^2