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

Сумма 2 квадратов написать программу определяющую возможность представления заданного натурального числа n в виде суммы двух квадратов натуральных чисел

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

Вот программа , если мы хотим сложить 2 квадрата одного числа
program sqr;
 var n,a: integer;
 begin
 write (Введите число>>);
 read (n);
 a:= n*n+n*n;
 writeln (a)
end.

Но если мы хотим выразить 1 число в виде суммы 2-х квадратов и проверить возможно ли это, то (боюсь ошибиться)
program sqr;
 uses crt;
 var n: integer; a,b:real;
 begin
 write (Введите число>>);
 read (n);
 a:= sqrt(n);
 if (a= sqrt(n)) and (a=(n*n)) then
 begin
 b:= sqrt(a);
 if b= (a*a)+(a*a) then
 writeln (Можно);
 if b<> (a*a)+(a*a) then
 writeln (Нельзя);
 end;
 if (a= sqrt(n)) and (a<>n*n) then
 writeln (Нельзя)
end.