число N можно представить в виде 2 квадратов?, циклы Опции

[DruiD]

Дано число n . Возможно ли записать его в виде суммы 2 квадратов натуральных чисел?

Сообщение отредактировано: DruiD - 5.10.2006 19:26

[volvo]

Во-первых, в условии нет указания, что одно из чисел не должно быть нулем, так что проверка b на равенство нулю не нужна

Ну, тогда и цикл

  for i:=1 to m do begin
    ii:=i*i;
    for j:=i to m do if N=ii+j*j then WriteLn(N,' = ',i,'^2 + ',j,'^2');
  end;

Лучше начинать не с 1 (по i), а с нуля, ибо если с 1-цы, то теряем представление, например,
9 = 0^2 + 3^2