Написать программу, определяющую возможность представления заданного натурального числа М в виде суммы двух квадратов натуральных чисел.

Question

Информатика

Сюня

12 марта, 04:35

Написать программу, определяющую возможность представления заданного натурального числа М в виде суммы двух квадратов натуральных чисел.

+2

Ответы (1)

Знаете ответ на вопрос?

Жора · Answer 1

Program rabota_01;

var m, n: Longint;

i, j: Integer;

begin

Write ('Введите M: ') ; ReadLn (m) ;

for i:=Trunc (Sqrt (m)) downto 1 do begin

n:=Sqr (i) ; j:=1; while (j<=i) and (n+Sqr (j)
if n+Sqr (j) = m then begin

WriteLn (m,' = ', i,'^2 + ', j,'^2') ; Exit;

end;

end;

WriteLn (m,' не является суммой квадратов натуральных чисел.') ;

end.