|
|
вернуться в форумКакой формат вывода? Не понимаю фразу:"Строка должна оканчиваться символом перевода строки." Что это интересно за символ в паскале? Мой код: const Nmax=21000; var a,s:array[1..Nmax] of char; N,i,L,R:longint; ch:char;
procedure Solve(L,R,i:longint); var m:longint; begin if(R-L>1) then begin m:=(L+R) div 2; a[m]:=s[i]; Solve(L,m-1,i+1); Solve(m+1,R,m-L+i+1); end else begin a[l]:=s[i]; if(R>L) then a[R]:=s[i+1]; end; end;
begin N:=0; while not eof do begin read(ch); inc(N); s[n]:=ch; end;
L:=1; R:=N; Solve(L,R,1); for i:=1 to N-1 do write(a[i]); writeln(a[n]); end. Re: Какой формат вывода? Возможно, нужно вывести все символы в строке с помощью команды write, а затем просто добавить строку writeln. |
|
|