;program mehdi

var

  ;n:integer

;(procedure a(m1,m3,m2:char;n:integer

begin

  if n=1 then

    (writeln('move disk 1 form ',m1,' to ',m3

  else

    begin

      ;(a(m1,m2,m3,n-1

      ;(writeln('move disk ',n,' from ',m1,' to ',m3

      ;(a(m2,m3,m1,n-1

    ;end

;end

Begin

  ;(‘:write('Enter number of disks

  ;(readln(n

  ;(a('A','C','B',n

  ;readln

.End

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: