Определить, существуют ли такие числа, что сумма их квадратов равна заданному числу - PascalABC.NET

Формулировка задачи:

Условие

Дано неотрицательное целое число N. Требуется определить, существуют ли такие неотрицательные целые числа x и y, что x2 + y2 = N.

Формат входного файла

Во входном файле содержится единственное число N.

Формат выходного файла

Выходной файл должен содержать искомую пару целых чисел x y, или −1. если такой пары не существует. При наличии нескольких решений вывести любое из них.

Ограничения

0 ≤ N ≤ 1000

Решение задачи: «Определить, существуют ли такие числа, что сумма их квадратов равна заданному числу»

textual
                            Листинг программы 
                        

                            var n,x,y,k:integer;
begin
readln(n);
x:=0;
k:=-1;
while (x<=n)and(k=-1) do
 begin
  y:=0;
  while (y<=n) and(k=-1) do
  if x*x+y*y=n then
   begin
    write(x,' ',y);
    k:=0;
   end
  else inc(y);
  inc(x);
 end;
if k=-1 then write(k);
end.
                        

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы