Можно ли представить число в виде суммы квадратов двух натуральных чисел

@dmitriy2012 · Регистрация: 06.06.2012

Author24 — интернет-сервис помощи студентам

n - натуральное.
Можно ли представить его в виде суммы квадратов двух натуральных чисел? Указать пару натуральных чисел x,y таких, что n=x²+y².

@Lilu666 · 22.06.2012, 13:42

Pascal

uses crt;
var n,i,x,y: integer;
    t: boolean;
begin
clrscr;
      write ('vvedite n: '); readln(n);
      t:=false;
      for x:=0 to round(sqrt(n)) do
          for y:=0 to round(sqrt(n)) do
              if x*x+y*y=n then begin
                 writeln(x,' ',y);
                 t:=true; end;
      if t=false then writeln('net');
readkey;
end.

@dmitriy2012 · 22.06.2012, 13:50 **[ТС]**

А можно попроще?

@Veyron · 22.06.2012, 15:00

dmitriy2012,в смысле попроще?

@Lilu666 · 22.06.2012, 15:16

Ну даже не знаю. Если вы не изучали функции round и sqrt, тогда можно искать до n, т.е.

Pascal

to n do

Это конечно лишняя работа программы, но и особого вреда от этого не будет...
Можно убрать переменную t и все с ней связанное, тогда в случае отрицательного результата программа просто ничего не выведет.

@Veyron · 22.06.2012, 15:20

Lilu666, в Вашем решении выводится ответ дважды. Это не есть хорошо.

@Lilu666 · 22.06.2012, 15:30

Veyron, да, я знаю. Я не смогла придумать, как сделать так, чтоб был один ответ...

@dmitriy2012 · 22.06.2012, 23:05 **[ТС]**

Lilu, мне и надо с помощью "to n do"

@Veyron · 22.06.2012, 23:19

Lilu666, вот это:

Delphi

1	for y:=0 to round(sqrt(n)) do

заменить на вот это:

Delphi

1	for y:=x to round(sqrt(n)) do

@Lilu666 · 22.06.2012, 23:33

Veyron, о, точно! Спасибо за подсказку!

dmitriy2012, если искать до n, тогда окончательный вариант будет такой:

Pascal

uses crt;
var n,i,x,y: integer;
    t: boolean;
begin
clrscr;
      write ('vvedite n: '); readln(n);
      t:=false;
      for x:=0 to n do
          for y:=x to n do
              if x*x+y*y=n then begin
                 writeln(x,' ',y);
                 t:=true; end;
      if t=false then writeln('net');
readkey;
end.

@dmitriy2012 · 23.06.2012, 12:02 **[ТС]**

спасибо обоим, огромное спасибо!!

@dmitriy2012 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 48
	23.06.2012, 12:02 [ТС]	11
	спасибо обоим, огромное спасибо!! 0

Можно ли представить число в виде суммы квадратов двух натуральных чисел

Решение

Решение

@dmitriy2012 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 48
	22.06.2012, 13:50 [ТС]	3
	А можно попроще? 0

@Veyron 107 / 107 / 9 Регистрация: 02.06.2009 Сообщений: 578
	22.06.2012, 15:00	4
	dmitriy2012,в смысле попроще? 1

@Veyron 107 / 107 / 9 Регистрация: 02.06.2009 Сообщений: 578
	22.06.2012, 15:20	6
	Lilu666, в Вашем решении выводится ответ дважды. Это не есть хорошо. 1

@Lilu666 35 / 35 / 30 Регистрация: 25.04.2012 Сообщений: 74
	22.06.2012, 15:30	7
	Veyron, да, я знаю. Я не смогла придумать, как сделать так, чтоб был один ответ... 1

@dmitriy2012 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 48
	22.06.2012, 23:05 [ТС]	8
	Lilu, мне и надо с помощью "to n do" 0