profile
Опубликовано 5 лет назад по предмету Информатика от mumbuda

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

  1. Ответ
    Ответ дан archery
    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.

    1. Ответ
      Ответ дан archery
      если правильно, то поставь лучшее решение пожалуйста, надо для статуса) заранеее спасибо)
    2. Ответ
      Ответ дан archery
      спасибо)
Самые новые вопросы