Найти числа, которые можно представить в виде суммы квадратов двух натуральных чисел (функция)

[dmtrb]

Помогите, пожалуйста!Дано натуральное число n. Среди чисел 1, 2, ... n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел(функция распознает полные квадраты)

[ViktorR]

Как вариант:

В цикле от 1 до N
   Извлечь корень из N.
   Получить целую часть (без округления).
   Возвести это число в квадрат.
   Сравнить с исходным (N).
   Если равно - печать.
Конец цикла.

Как-то так, ...

[digitalis]

Это всего лишь функция, решающая только подзадачу - проверить на точный квадрат. А речь идет о сумме квадратов.
На Паскале это звучит примерно так:

program  abc ;

var  n,j,k,y1,y2,x1 : integer ;

function TstSqrt(ix : integer): integer ;
var
   rx : real ;  iy : integer ;
begin
   rx := ix ; iy := Trunc(Sqrt (rx)) ;
   if iy*iy = ix then TstSqrt := iy else TstSqrt := 0
end ;

begin
    Write ('Input n ') ; Readln (n) ;
    k := n div 2 ;
    for j := 1 to k do
      begin
        y1 := TstSqrt (j) ;
        if y1>0 then
          begin
           x1 := n - y1 * y1 ;
           y2 := TstSqrt (x1) ;
           if y2>0 then
             Writeln (n:4,y1:4,y2:4) ;
           end  ;
      end ;
    Readln (n) ;
end.

Ну а на С# студент сам перегонит

[dmtrb]

Сообщение от ViktorR

Как вариант:

В цикле от 1 до N
   Извлечь корень из N.
   Получить целую часть (без округления).
   Возвести это число в квадрат.
   Сравнить с исходным (N).
   Если равно - печать.
Конец цикла.

Как-то так, ...

Не указал, что нужен си шарп

[Serge_Bliznykov]

ViktorR, а Вы ничего не перепутали?

например, число 25 можно представить как сумму квадратов чисел 3 и 4
25 = 3^2 + 4^2
Уверены, что Ваш алгоритм найдёт это решение?


dmtrb, так перепишете код на C#, какие проблемы?