atlas
Član broj: 20158 Poruke: 167 *.as.ka.bih.net.ba.
|
Za Pascal:
Program hanojske_kule (input,output);
var n:integer;
procedure prebaci (n,x,y,z): integer);
begin
if n<>0 then
begin
prebaci (n-1,x,z,y);
writeln('prebaci disk sa štapa',x,' na štap ',y);
prebaci(n-1,z,y,x)
end
end;
begin
write(' koliko ima diskova? ');
readln(n);
prebaci(n,1,2,3);
end.
okay
|