Проблема с программой.

[elDiablo]

Вот у меня написана программа, в которой надо найти все решения в целых числах числах.

Формула такая:
sqr(x) - sqr(y) = N

Где N задается пользователем


Program Summer;
Var
n: integer;
x, y: integer;

Begin
Write('Input n number:');
Readln(n);
for x:=1 to n do begin
for y:=1 to n do begin
if n=(sqr(x) + sqr(y)) then begin
Writeln(n,'= ',sqr(x),'+',sqr(y));
End;
End;
End;

readln;
End.

Что в ней неверно? Она выдает лишь один ответ.

[Greblin]

Во-первых, разберитесь какая формула Вам нужна. В условии у Вас минус, а в программе плюс
Во-вторых, а Вы уверены, что такая пара не одна для тех значений N, на которых тестите. Для N=7, например, таких чисел вообще нет

[b2soft]

предлагаю вам такой вариант, если программа создана для решения уравнений

program Program_01;

var n,x,y,i,j:ineteger;
begin
x:=0;

writeln('Введите N');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
if sqr(i)-sqr(j)=n then
begin
writeln ('Решения:', sqr(i), '  ', sqr(j););
x:=i;
y:=j;
readln;
end;
end;
if (x=0) and (y=0) then writeln ('Решений нет или x и y равны нулю');
end.

если что непонятно - аська 581751789