Задача о квадратах.

[pdef]

Помогите пожалуйста решить.

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

Описание входа:
На вход число натуральное N<10^9

Описание выхода:
Выведете YES или NO в зависимости от ответа задачи.В случае положительного ответа во второй строке выведете 2 числа сумма квадратов которых равна N.Числа выводятся в порядке возрастания.

Пример:
Вход: Выход:
100 YES
6 8

11 NO

[NetSpace]

грубый набросок, работать будет долго...

var i,j:LongInt;
     res:Byte;
for i:=1 to N do
for j:=1 to N do
begin
   if(i*i+j*j=N)then res:=1
   else res:=0;
    if(N<(i*i+j*j))then continue;//выход из цикла по j - чтоб сократить работу
end;
if(res=1)then ShowMessage('YES')
else ShowMessage('NO');

захотите сократить число итераций - сокращайте командами break или continue;

[pdef]

Не могли бы вы сделать полное решение)

[NetSpace]

это DELPHI. Вам всё равно на каком языке делать?

[pdef]

Нет,именно паскаль.Причём самые примитивные команды.К примеру ShowMessage не знает - только writeln;

[Serge_Bliznykov]

более быстрое решение (и на "чистом" Паскаль) было выложено буквально сегодня ТУТ

[NetSpace]

аха, TURBO PASCAL. ну тогда так:

var i,j:LongInt;
     res:Byte;
begin
    WriteLn('N=');
    Read(N);
    for i:=1 to N do
    for j:=1 to N do
    begin
       if(i*i+j*j=N)then
       begin
          res:=1;
          WriteLn('YES; ','i=',i,'; j=',j);
       end  
       else res:=0;
       if(N<(i*i+j*j))then continue;//выход из цикла по j - чтоб сократить работу
    end;
    if(res=0)then WriteLn('NO');
end.

[NetSpace]

он по ходу работы будет выводить Вам YES и два числа,
а в конце всё равно напишет один раз NO. но это нестрашно...

[pdef]

Спасибо большое)