Составить программу используя while или do...while

[X-rays1]

Ребят всем добрый день) Кому не трудно помогите пожалйуйста!!!Программу нужно написать на языке с++

Дано натуральное число N. Среди чисел 1, 2, …, N найти те, которые можно представить в виде суммы квадратов двух натуральных чисел.

[Аватар]

function StringListSortCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:=StrToInt(List.Strings[Index1])-StrToInt(List.Strings[Index2]);
end;

procedure TForm1.Button7Click(Sender: TObject);
var i,j,n,m: Integer;
    xList: TStringList;
begin
  n:=100;
  xList:=TStringList.Create;
  xList.Sorted:=True;
  xList.Duplicates:=dupIgnore;
  i:=1;
  while i<=Round(Sqrt(n))+1 do begin
    j:=i;
    while j<=Round(Sqrt(n))+1 do begin
      if i*i+j*j<=n then xList.Add(IntToStr(i*i+j*j));
      Inc(j);
    end;
    Inc(i);
  end;
  xList.Sorted:=False;
  xList.CustomSort(StringListSortCompare);
  Memo1.Lines.Assign(xList);
  xList.Free;
end;

[X-rays1]

Сообщение от Аватар

function StringListSortCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:=StrToInt(List.Strings[Index1])-StrToInt(List.Strings[Index2]);
end;

procedure TForm1.Button7Click(Sender: TObject);
var i,j,n,m: Integer;
    xList: TStringList;
begin
  n:=100;
  xList:=TStringList.Create;
  xList.Sorted:=True;
  xList.Duplicates:=dupIgnore;
  i:=1;
  while i<=Round(Sqrt(n))+1 do begin
    j:=i;
    while j<=Round(Sqrt(n))+1 do begin
      if i*i+j*j<=n then xList.Add(IntToStr(i*i+j*j));
      Inc(j);
    end;
    Inc(i);
  end;
  xList.Sorted:=False;
  xList.CustomSort(StringListSortCompare);
  Memo1.Lines.Assign(xList);
  xList.Free;
end;

Извеняюсь!!!не уточнила что программу нужно написать на языке С++

[Аватар]

Ну вот, хоть не фоксе написал

[X-rays1]

Сообщение от Аватар

Ну вот, хоть не фоксе написал

Ага, жалко не на си))но человек хотя бы попытался помочь))))

[Аватар]

Я не пытался, а помог, вернее сделал за тебя. Твоя беда, что язык не указываешь. Алгоритм на си тот же, только другими словами

[X-rays1]

Сообщение от Аватар

Я не пытался, а помог, вернее сделал за тебя. Твоя беда, что язык не указываешь. Алгоритм на си тот же, только другими словами

мой косяк не спорю))))если я ооооочень попрошу ты же не перепишешь?да?))))))))

[Аватар]

Не, на плюсах не писатель, только читатель

[X-rays1]

если кто-нибудь сможет помочь буду очень благодарна!