у меня походу проф.идиотизм. Я про задачку. Ну, конечно, не получится..
3 нечетные и четное..
но увлекся, блин - чисел то много, да еще можно повторять ))
Должна решаться! РЕшил и написал
var
i,j,k: Integer;
A: array [1..8] of Integer;
begin
A[1] := 1;
A[2] := 3;
A[3] := 5;
A[4] := 7;
A[5] := 9;
A[6] := 11;
A[7] := 13;
A[8] := 15;
for i := 1 to 8 do
for j := 1 to 8 do
for k := 1 to 8 do
if A[i] + A[j] + A[k] = 30 then
memo1.Lines.Add(Format('%d +%d +%d = 30',[i,j,k]));
фиг вам, пусто в мемо.
И вот тогда до него дошло ©
yaplakal.com