Написать программу, определяющую возможность представления заданного натурального числа М в виде суммы двух квадратов натуральных чисел.
Написать программу, определяющую возможность представления заданного натурального числа М в виде суммы двух квадратов натуральных чисел.
Гость
Ответ(ы) на вопрос:
Гость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)
Не нашли ответ?
Похожие вопросы