Новости

Случайная программа

// Ханойские башни
// Уровень сложности: 1

procedure Hanoi(n,f,t,w: integer);
begin
  if n=0 then exit;
  Hanoi(n-1,f,w,t);
  // Переложить диск со стержня f
  // на стержень t
  writeln(f,'->',t);
  Hanoi(n-1,w,t,f);
end;

const n=8; // Количество дисков

begin
  Hanoi(8,1,2,3);
end.