Цитата:
Сообщение от shrek=)
В результате работы программы, которую я представил, в ответ выдается разложения элементов одними и теми же числами, но в разной последовательности. А мне нужно только четыре числа, а не разложение каждого элемента.
|
А, понятно.
Ну вроде так:
Код:
var
mas:array [1..10] of integer;
i,l,k,x,y:integer;
procedure poisk;
begin
for k:=10 downto 1 do
for l:=k downto 1 do
for x:=l downto 1 do
for y:=x downto 1 do
if mas[i]=sqr(k)+sqr(l)+sqr(x)+sqr(y) then
writeln (mas[i],' => ',k,' ',l,' ',x,' ',y);
end;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(40);
write(mas[i]:3);
end;
writeln;
for i:=1 to 10 do poisk;
readln
end.