ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1685. Орфография

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