Задачка из темы множества Опции

[Markson]

Вот задачка, как зделать в масивах я примерно знаю, но мне нада её решыть с помощью множыств ( на украинском "множин"), с етим методом я никак немогу разобратся. На форуме вродебы ничего похожего ненаходил.


В порядке спадания напечатать все целые числа из диапазона 1..100 которые можно подати в виде sqr(n)+2*sqr(k) , где n,k целые числа.

[Ozzя]

var
  i,n,k : Integer;
  a : Set of Byte;
begin
  a:=[];
  readln(n,k);
  for i:=1 to 100 do
    begin
      if i=sqr(n)+2*sqr(k) then
        include(a,i);
    end;
  for i:=1 to 100 do
    begin
      if i in a then
        Write(i,' ');
    end;
  readln;
end.

Не знаю что такое "спадания " сам реализуешь

[Гость]

Не совсем так.. Выражение "числа можно представить в виде" означет, что нужно найти все n и k, удовлетворяющие условию. Так что как-то примерно так:

var
  i,n,k : Integer;
  a : Set of Byte;
begin
  a:=[];
  for i:=1 to 100 do for n:=0 to 100 do for k:=1 to 100 do
    if i=sqr(n)+2*sqr(k) then include(a,i);
  for i:=100 downto 100 do if i in a then Write(i,' ');
  readln;
end.

Не знаю что такое "спадания " сам реализуешь

Думаю, это значит в порядке убывания (сделал)