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

Обсуждение задачи 1723. Книга Сандро

help me. >> WA 2 <<
Послано John Mac 7 июл 2011 13:15
this my code:


var
  a,b,s,ms:string[50];
  ss,mss,k,n,i,j:integer;
begin
  readln(s);
  n:=length(s);
  mss:=0;
  for i := 2 to n div 2 do
    for j := 1 to n-i-1 do
      begin
        a:=copy(s,j,i);
        ss:=1;
        for k := j+1 to n-i+1 do
          begin
            b:=copy(s,k,i);
            if a=b then inc(ss,1);
          end;
        if mss<=ss then
        begin
          mss:=ss;
          ms:=a;
        end;
      end;
  if mss=1 then write(s) else write(ms);
end.

OR


var
  a,b,s,ms:string[50];
  ss,mss,k,n,i,j:integer;
begin
  readln(s);
  n:=length(s);
  mss:=0;
  for i := 2 to n div 2 do
    for j := 1 to n-i-1 do
      begin
        a:=copy(s,j,i);
        ss:=1;
        for k := j+1 to n-i+1 do
          begin
            b:=copy(s,k,i);
            if a=b then inc(ss,1);
          end;
        if mss<=ss then
        begin
          mss:=ss;
          ms:=a;
        end;
      end;
  write(ms);
end.
Re: help me. >> WA 2 <<
Послано [RSU_Tash]Nodirbek_Kuklamov 16 ноя 2011 00:42
Simple: start your cycle for i from 1.