Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.