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

Ответы 1

  • uses crt;procedure Kvadr(n:longint; var f:boolean);beginif frac(sqrt(n))=0 then f:=true else f:=false;end;var i,j,n,k:longint;    fj,fk:boolean;beginclrscr;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.
    • Автор:

      ariasyuyl
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years