Case s ofnat = 1..maxint; Var m: nat; {m – число дисков} procedure move(n: nat; s1, sw, sk: st); {перемещение n дисков с s1 на sk} procedure step; {перемещение одного диска с s1 на sk} procedure print(s: st); Begin case s of left: write(' лев. '); middle: write(' средн. '); right: write(' прав. ') end; end; begin {step} write(' снять диск с '); print(s1); write(' надеть на '); print(sk); writeln end;
begin {move} if n = 1 then step
|
