Помогите написать код программы в Pascal для задачи:дано натуральное число n среди чисел...

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<br>                writeln(i,'^2 + ',j,'^2 = ',i * i + j * j);
end.

Comments

спасибо)