Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. Определить процедуру, позволяющую распознавать полные квадраты.

Вопрос от пользователя: Машаня

Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел. Определить процедуру, позволяющую распознавать полные квадраты.

Ответ: Евтропия

uses crt;

procedure Kvadr (n:longint; var f:boolean);

begin

if frac (sqrt (n)) = 0 then f:=true

else f:=false;

end;

var i, j, n, k:longint;

fj, fk:boolean;

begin clrscr;

write (‘n=’);

readln (n);

for i:=2 to n do

for j:=1 to i div 2+1 do

for k:=1 to i do begin

Kvadr (j, fj);

Kvadr (k, fk);

if fj and fk and (j+k=i) then writeln (i,’=’, j,’+’, k);

end;

readln;

end.