Определите длину наибольшей строки, которая встречается в обеих заданных строках

@helsibi · Регистрация: 10.12.2015

Author24 — интернет-сервис помощи студентам

Задача A
Вам даны две строки s и t, определите длину наибольшей строки, которая встречается в обеих.
Формат входных данных
Первая строка входных данных содержит строку s, вторая строка содержит строку t. Обе строки состоят только из строчных латинских букв. 1 <= длина строк <= 1,000.
Формат выходных данных
Выведите ответ к задаче.
Пример:

A.in	A.out	Комментарий
kazakhstan astana	4	stan

Pascal

var
 k,s,t:string;
 j,i,dl_max_od:integer;
begin
readln(s);
readln(t);
dl_max_od:=0;
for i:=length(s) downto 1 do
for j:=length(t) downto 1 do
                   begin
                   if s[i]=t[j]     then
                   if s[i-2]=t[j-2] then
                   if s[i-3]=t[j-3] then
                   if s[i-4]=t[j-4] then
                   if s[i-5]=t[j-5] then
                                   begin
                                   k:=concat(s[i-2],s[i-3],s[i-4],s[i-5]);
                                   dl_max_od:=dl_max_od+1;
                                   end;
                   end;
writeln(k,' ',dl_max_od);
end.

@Puporev · 10.12.2015, 20:11

Pascal

1	k,s,t:string;

Длина строки в Паскале максимально 255 символов, а по условию 1000 символов, значит нужно использовать символьные массивы.

@helsibi · 10.12.2015, 20:20 **[ТС]**

Спасибо буду искать варианты

@helsibi 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 6
	10.12.2015, 20:20 [ТС]	3
	Спасибо буду искать варианты 0