Ovo ti je program da vrti tri broja... Ako hoces vise, samo dodas vise for petlji, ili napravi podprogram sa for petljom pa onda to guras u for petlju za broj kombinacija a u for-u stavis koji broj kombinacija oces...
I cisto radi preglednosti sam dodao ukoliko je broj dvocifren da kombinacije prise sa razmakom...
Code:
program permutacija;
var n,x,y,z,space:integer;
begin
space := 0;
writeln ('Unesite broj N: ');
readln (n);
if n > 9 then space := 1;
for x:=0 to n do
begin
for y:=0 to n do
begin
for z:=0 to n do
begin
if space > 0 then
begin
writeln ('Kombinacija br.',x,': ',x,' ',y,' ',z);
end
else
begin
writeln ('Kombinacija br.',x,': ',x,y,z);
end;
end;
end;
end;
writeln ('--------------- Kraj.');
end.