program my;
var n1,n2,n3,res,i,j,k,s,sa : integer;
begin
readln(n1,n2,n3);
for i := -1 to 1 do begin
for j := -1 to 1 do begin
for k := -1 to 1 do
begin
s := (n1*i) + (n2*j) +(n3*k);
if (s + abs(s) <> 0) then begin
Writeln(s);
inc(res);
end;
end;
end;
end;
readln;
end.
Филтрацыя
Код:
Но при вводе значений, например 0 3 4 те же самые значения повторяются. Как мне сделать, что-бы были только уникальные значения? спасибо.
Можно записывать данные в массив и каждый раз его проверять, если есть такое число, то не писать в массив