Номер страницы(TurboPascal, FreePascal)

[VladKB1]

Всем привет!

Я решил задачу, но на тестировании не прошло 7 тест (тесты нельзя проверять). Пожалуйста помогите решить задачу. Вот код и условие:

Задача C. Номер страницы

Имя входного файла: number.in
Имя выходного файла: number.out
Ограничение по времени: 2 секунды
Ограничение по памяти: 256 мегабайт

Однажды робот-библиотекарь решил устроить ревизию. На одной из полок, среди экземпляров
тридцать третьего издания Кормена, он нашел листок из условий одного древнего контеста. Роботу
известен формат оформления условий, однако этот листок привел его в замешательство.
Обычно внизу каждой страницы условий есть надпись вида «Страница i из n», где i — номер
страницы условий, а n — количество страниц в условиях. Однако на этом листе была всего одна
длинная последовательность цифр. Видимо, принтер почему-то не напечатал ни одного символа
кроме цифр. Таким образом, номера i и n слились в единую последовательность цифр.
Теперь понять, какой же был номер у найденной страницы, стало большой проблемой, и решений
у этой задачи может быть много. Роботу стало интересно, сколько существует решений, но так
как робот не предназначен для решения таких задач, он нуждается в вашей помощи. Страницы в
условиях нумеруются от 1 до n, числа i и n записываются без ведущих нулей.
Выясните, сколько есть корректных надписей вида «Страница i из n», при удалении из которых
всех символов кроме цифр получается заданная во входном файле строка.

Формат входного файла
Входной файл содержит строку, состоящую только из цифр. Длина строки лежит в пределах от
1 до 200 000, включительно.

Формат выходного файла
Выведите количество корректных надписей вида «Страница i из n», при удалении из которых
всех символов кроме цифр получается заданная во входном файле строка.

Примеры
number.in
23507645

number.out
3

В приведенном примере можно проинтерпретировать строку тремя способами:
• «Страница 2 из 3507645»
• «Страница 23 из 507645»
• «Страница 2350 из 7645»

Вот мой код:

var
 s: ansistring;
 st,sc,i,k,l,j: longint;
begin
 assign(input,'number.in');
 reset(input);
 assign(output,'number.out');
 rewrite(output);

 readln(s);
 st:=st+ord(s[1])-48;
 for i:=1 to length(s) do
 begin
  if s[i+1] = '0' then
  begin
   st:=st*10;
   continue;
  end;

  for j:=i+1 to length(s) do sc:=sc*10+ord(s[j])-48;

  if (st < sc) or (st = sc) then inc(k);
  if st > sc then
  begin
   writeln(k);
   halt;
  end;
  sc:=0;
  st:=st*10+ord(s[i+1])-48;
 end;

 writeln(k);
end.

Всем заранее спасибо!

Задачу решил! Огромное спасибо BDA и Аватар-у за помощь! Вот код:

var
 s: ansistring;
 i,k: longint;
begin
 assign(input,'number.in');
 reset(input);
 assign(output,'number.out');
 rewrite(output);

 readln(s);
 if s[1] = '0' then
 begin
  writeln(k);
  halt;
 end;
 for i:=1 to length(s) div 2 do
 begin
  if (s[i+1]<>'0') and ((2*i<Length(s)) or (Copy(s,1,i)<=Copy(s,i+1,i))) then Inc(k);
 end;
 writeln(k);
end.

[BDA]

Длина строки лежит в пределах от 1 до 200 000

200000-значное число не влезет в longint
По-моему, нужно делать так:
Проводить границу после i-го символа.
Если i+1 символ "0", то переходить к следующему витку цикла.
Если i меньше, чем n-i, то увеличивать счетчик.
Если i равно n-i, то сравнить сами строки слева и справа от границы.

Цикл нужно делать от 1 до n div 2, где n - длина введенной строки.

[VladKB1]

Сообщение от BDA

200000-значное число не влезет в longint
По-моему, нужно делать так:
Проводить границу после i-го символа.
Если i+1 символ "0", то переходить к следующему витку цикла.
Если i меньше, чем n-i, то увеличивать счетчик.
Если i равно n-i, то сравнить сами строки слева и справа от границы.

Цикл нужно делать от 1 до n div 2, где n - длина введенной строки.

Спасибо, но хотел сказать что 200 000 как раз таки влезет в longint, так как Min значение longint = -2147483648 , а Max значение longint = 2147483647

[Аватар]

200 000 как раз таки влезет в longint

А если столько раз единицу, например, умножить на 10? Что и сделает цикл

for j:=i+1 to length(s) do sc:=sc*10+ord(s[j])-48;

[VladKB1]

Сообщение от Аватар

А если столько раз единицу, например, умножить на 10? Что и сделает цикл

for j:=i+1 to length(s) do sc:=sc*10+ord(s[j])-48;

Упс, не подумал Ладно потом попробую исправить как мне выше написали, а щас времени нет))

Я исправил как мне сказал BDA, но я скорее всего как-то не так написал или вы не правы. У меня не прошёл 9 тест, вот код:

var
 s: string;
 st,sc,i,k,l,j: longint;
begin
 assign(input,'number.in');
 reset(input);
 assign(output,'number.out');
 rewrite(output);

 readln(s);
 st:=st+ord(s[1])-48;
 for i:=1 to length(s) div 2 do
 begin
  if s[i+1] = '0' then
  begin
   st:=st*10;
   continue;
  end;

  for j:=i+1 to length(s) do sc:=sc*10+ord(s[j])-48;

  if i < length(s)-i then inc(k);
  if i = length(s)-i then
  if st < sc then inc(k) else if st > sc then
  begin
   writeln(k);
   halt;
  end;
  sc:=0;
  st:=st*10+ord(s[i+1])-48;
 end;

 writeln(k);
end.

[Аватар]

За исключением ввода-вывода это весь подсчет

  k:=0;
  for i:=1 to Length(s) div 2 do
    if (s[i+1]<>'0') and ((2*i<Length(s)) or (Copy(s,1,i)<=Copy(s,i+1,i))) then Inc(k);

[VladKB1]

Сообщение от Аватар

За исключением ввода-вывода это весь подсчет

  k:=0;
  for i:=1 to Length(s) div 2 do
    if (s[i+1]<>'0') and ((2*i<Length(s)) or (Copy(s,1,i)<=Copy(s,i+1,i))) then Inc(k);

Я исправил, но уже застревает на 18 тесте.

Вот код который послал:

var
 s: string;
 st,sc,i,k,l,j: longint;
begin
 assign(input,'number.in');
 reset(input);
 assign(output,'number.out');
 rewrite(output);

 readln(s);
 st:=st+ord(s[1])-48;
 for i:=1 to length(s) div 2 do
 begin
  if s[i+1] = '0' then
  begin
   st:=st*10;
   continue;
  end;

  for j:=i+1 to length(s) do sc:=sc*10+ord(s[j])-48;

  if i < length(s)-i then inc(k);
  if i = length(s)-i then
  if st < sc then inc(k) else if st > sc then
  begin
   writeln(k);
   halt;
  end;
  sc:=0;
  st:=st*10+ord(s[i+1])-48;
 end;
 k:=0;
 for i:=1 to Length(s) div 2 do
 if (s[i+1]<>'0') and ((2*i<Length(s)) or (Copy(s,1,i)<=Copy(s,i+1,i))) then Inc(k);
 writeln(k);
end.

[Аватар]

А зачем там все остальное? Кроме ввода-вывода

[VladKB1]

Сообщение от Аватар

А зачем там все остальное? Кроме ввода-вывода

Я сегодня весь день туплю)) Я вроде бы сделал всё как надо, но не прошло 58 тест Вот код:

var
 s: ansistring;
 i,k: longint;
begin
 assign(input,'number.in');
 reset(input);
 assign(output,'number.out');
 rewrite(output);

 readln(s);
 for i:=1 to length(s) div 2 do
 begin
  if s[i+1] = '0' then continue;
  if (s[i+1]<>'0') and ((2*i<Length(s)) or (Copy(s,1,i)<=Copy(s,i+1,i))) then Inc(k);
 end;
 writeln(k);
end.

[BDA]

1) Из-за условий во втором if, первый if уже не нужен
2) Пишут, что сама строка тоже может начинаться на 0, и тогда нужно вывести 0 в качестве ответа.