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

Помогите написать код программы в Pascal для задачи: дано натуральное число n среди чисел 1,2 ... n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. Заранее огромное спасибо!!
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы