Question

Помогите написать код программы в Pascal для задачи:
дано натуральное число n среди чисел 1,2 ... n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел.
Заранее огромное спасибо!!

Answer 1

var
    n, i, j: integer;

begin
    read(n);
    for i := 1 to n - 1 do
        for j := i to n - 1 do
            if i * i + j * j <= n then
                writeln(i,'^2 + ',j,'^2 = ',i * i + j * j);
end.

Answer 2

если правильно, то поставь лучшее решение пожалуйста, надо для статуса) заранеее спасибо)

Answer 3

спасибо)