ENG  RUSTimus Online Judge
Online Judge
Problems
Authors
Online contests
About Online Judge
Frequently asked questions
Site news
Webboard
Links
Problem set
Submit solution
Judge status
Guide
Register
Update your info
Authors ranklist
Current contest
Scheduled contests
Past contests
Rules
back to board

Discussion of Problem 1685. Orthography

Какой формат вывода?
Posted by Felix_Mate 7 May 2016 21:20
Не понимаю фразу:"Строка должна оканчиваться символом перевода строки." Что это интересно за символ в паскале?

Мой код:
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: Какой формат вывода?
Posted by Combatcook 10 May 2016 23:17
Возможно, нужно вывести все символы в строке с помощью команды write, а затем просто добавить строку writeln.