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

@zhanara-5693 · Регистрация: 10.12.2015

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

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

@APALoff · 10.12.2015, 10:30

Pascal

Var
  s,t : String;
  i,j  : Integer;
Begin
  Readln(s);
  Readln(t);
  For i:=Length(s) downto 1 do
   For j:=1 to Length(t)-i+1 do
     If Pos(Copy(s,j,i),t)>0 then
     Begin
       Writeln('Общая строка максимальной длины: ',Copy(s,j,i));
       Halt(0);
     end;
  Writeln('Нет общей подстроки.');
end.

@zhanara-5693 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 2
		1
	Даны две строки s и t, определите длину наибольшей строки, которая встречается в обеих 10.12.2015, 07:11. Показов 6459. Ответов 1 Метки нет (Все метки) Даны две строки s и t, определите длину наибольшей строки, которая встречается в обеих Формат входных данных Первая строка входных данных содержит строку s, вторая содержит строку t. Обе строки состоят только из строчных латинских букв. 1<=длина строк<=1 000. Формат выходных данных: Выведите ответ к задаче! 0

	10.12.2015, 10:30

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

Решение