Можно ли число N представить в виде сумы двух квадратов натуральных чисел?

[Dima170792]

Ув.форумчане-очень нужна ваша помощь в решении задачи по информатике(язык Delphi7)
нужно создать оконное приложение с использованием эдитов,и тд.задача следующая:Можно ли число N представить в виде сумы квадратов двух натуральных чисел? если несложно-покажите полный код программы.Заранее благодарен.

[Demien]

На форму кидаешь 2 эдита, 1 лейбл и кнопку.
Событие нажатия на кнопку:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y : Integer;
begin
  x:=StrToInt(Edit1.Text);
  y:=StrToInt(Edit2.Text);
  Label1.Caption:='Сумма квадратов чисел '+Edit1.Text+' и '+Edit2.Text+' равна '+IntToStr(x*x+y*y);
end;

P.S. Не помню функции возведения в степень, а искать лень... Но думаю и так сойдет!

[Serge_Bliznykov]

Demien, жжете!!
Дело в том, что автору топика как раз и надо найти эти самые X и Y из Вашего примера. А дано ему только одно число N

Dima170792
смысл такой - написать перебор :

N := StrToInt(Edit1.Text);
for I:=1 to trunc(sqrt(N)) do
  for J:=1 to trunc(sqrt(N-sqr(I))) do
    if (sqr(I)+sqr(j)) = N 
     then Memo1.Lines.Append('Найдено: '+IntToStr(I)+'^2 + '+IntToStr(J)+'^2 =' + IntToStr(N));