|  | 
|  | 
| вернуться в форум | Какой формат вывода? Не понимаю фразу:"Строка должна оканчиваться символом перевода строки." Что это интересно за символ в паскале?
 Мой код:
 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. | 
 | 
|