Меню сайта

Задача №19

Найти минимальное число, которое представляется суммой четырёх квадратов натуральных чисел не единственным образом.


Program for_19-

uses crt-

var ch,a,b,c,d,k,cc:longint-

begin

clrscr-

for ch:=1 to 100 do

for a:=1 to 100 do

for b:=1 to 10 do

for c:=1 to 10 do

for d:=1 to 10 do

begin

if cc&lt-&gt-ch then k:=0-

if a*a+b*b+c*c+d*d=ch then begin cc:=ch-inc(k)- end-

if k&gt-1 then begin

write(ch,’ — ‘,a,’,’,b,’,’,c,’,’,d)-

readln-halt-

end-

end-

Readln-

end.

Категория: Циклы | Дата: 17.11.12

Меню раздела
Блок