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

@Булатик92 · Регистрация: 22.01.2014

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

@Cyborg Drone · 22.01.2014, 13:02

Pascal

program sqrsum;
 
var n, x, y: integer;
    f: boolean;
 
begin
  write('n = ');
  readln(n);
  n := abs(n);
  f := true;
  for x := 1 to trunc(sqrt(n)) do
    for y := 1 to trunc(sqrt(n)) do
      if n = x * x + y * y
        then begin
          writeln(x, ', ', y);
          f := false
        end;
  if f then writeln('No pairs.');
  readln
end.

@Булатик92 · 22.01.2014, 13:11 **[ТС]**

Спасибо огромное! Шоколад куда выслать)))???

@Cyborg Drone · 22.01.2014, 13:14

Не по теме:

Булатик92, пустяки. Для меня гланое, чтобы Вы сами научились писать программы.

@Булатик92 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 45
		1
	Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел? 22.01.2014, 12:42. Показов 5568. Ответов 3 Метки нет (Все метки) Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел? Если можно, то указать все пары x, y таких натуральных чисел, что n=x²+y². 0

@Булатик92 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 45
	22.01.2014, 13:11 [ТС]	3
	Спасибо огромное! Шоколад куда выслать)))??? 0

@Cyborg Drone
	22.01.2014, 13:14 Дано натуральное число n. Можно ли представить его в виде суммы двух квадратов натуральных чисел? #4
	Не по теме: Булатик92, пустяки. Для меня гланое, чтобы Вы сами научились писать программы. 1

Опции темы