Решения задач acmp.ru
Главная
Вход
Регистрация
Четверг, 01.10.2020, 04:46Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0361 Подстроки из одинаковых букв

Скачать файл можно после просмотра рекламы:

04.06.2012, 18:32
var
a : array ['a'..'z', 0..100] of integer;
s : string;
c : char;
t, v : boolean;
i, j, l, n : integer;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(s); n:=length(s);
for c:='a' to 'z' do for j:=0 to n do a[c,j]:=0;
for i:=1 to n do for j:=i to n do a[s[i],j]:=a[s[i],j]+1;
t:=true; l:=n;
while t and (l>1) do
begin
l:=l-1;
for i:=0 to n-l-1 do
for j:=i+1 to n-l do
begin
v:=true;
for c:='a' to 'z' do
v:=v and(a[c,i+l]-a[c,i]=a[c,j+l]-a[c,j]);
if v then t:=false
end
end;
if t then write(0) else write(l);
close(output)
end.
Категория: Pascal | Добавил: shum
Просмотров: 1124 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020