Помогите написать программу на паскале. СПАСИБО
Найти 11 последовательных натуральных чисел, сумма квадратов которых сама является квадратом натурального числа.
Найти 11 последовательных натуральных чисел, сумма квадратов которых сама является квадратом натурального числа.
More Questions From This User See All
Answers & Comments
Verified answer
//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.