Lécci, Lécci tanícsatok meg programozni
-
DirtyPio #202 Sziasztok! Az volna a kerdesem, hogy mit lottem el ebben a programban, ami ki kellene ija a descartews szorzat minden tagjat:
program descartes;
type vector=array[1..50] of integer;
var n,m:integer;
v:vector;
procedure kiir(i:integer;v:vector);
var j:integer;
begin
for j:=1 to m do
write(v[i],' ');
writeln
end;
procedure desc(i:integer);
var j:integer;
begin
for j:=1 to m do
begin
v[i]:=j;
if i<n then desc(i+1)
else kiir(i,v);
end;
end;
begin
readln(n);
readln(m);
desc(1);
readln;
end.