Перевести с паскаля в бейсик. program hanoibns(input,output);
var n:integer;
procedure tower(k:integer;a,b,c:char);
begin
if k>1 then tower(k-1,a,c,b);
writeln('from ',a,' to ',b);
if k>1 then tower(k-1,c,b,a)
end;
begin
read(n);
tower(n,'A','C','B')
end.

vanyu2312122    1   18.03.2021 20:17    0