Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  daaaadad
Language: PASCAL
Code:
uses crt;
const n=3;
procedure Hanoy(a,b,c:char;count:integer);
begin
if count>0 then
   begin
     Hanoy(a,c,b,count-1);
     writeln('С башни '+a+ ' на башню '+c);
     Hanoy(b,a,c,count-1);
   end;
end;
begin
clrscr;
Hanoy('1','2','3',n);
readln;
end.
Comments: