Натуральные числа Опции

[Максим]

Найти все натуральные числа, не превосходящие заданного числа n, представимые в виде суммы квадратов двух каких-нибудь различных натуральных чисел.

[Amro]

Можно попробывать так, правда вывод плохой ;)
зато всё находит

Код

uses crt;
var
n,f,i,j,nat: integer;
mnoz: set of byte;
begin
clrscr;
write('Задайте число n ');
readln(n);
f:=round(sqrt(n));
for i:=1 to f do
    begin
    for j:=1 to i-1 do
        begin
        nat:=sqr(i)+sqr(j);
        if not (nat in mnoz) then
                             include(mnoz,nat)
                             else nat:=0;
     if (nat<=n)  then
           if nat<>0 then
               write(nat:3);
        end;
    writeln;
    end;
readkey;
end.

Исправленно!!!

Сообщение отредактировано: Amro - 21.10.2004 17:52