Операции со строками. Проверить содержится ли строка Т в строке S

@Ivanacats · Регистрация: 22.05.2012

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

Даны две строки S и Т. Проверить содержится ли строка Т в строке S. В случае положительного решения вывести True, в случае отрицательного False.

Добавлено через 1 минуту

Pascal

program lb_07_02;
var s,t,z:string;
n:integer;
begin
...
writeln(z, true);
 
n:=length(z);
writeln (n);
...
writeln (n);
delete (z,27,27);
writeln(z, false);
end.

@Das Gespenst · 14.06.2012, 12:54

Держи

Думаю, как-то так будет.

Pascal

program z;
var s,t:string; i,f:integer;
begin
     writeln('Введите S');
     readln(s);
     writeln('Введите T');
     readln(t);
     f:=0;
     for i:=1 to length(s) do
         if copy(s,i,length(t))=t
            then
                begin
                     writeln('True');
                     f:=1;
                end;
     if f=0
        then
            writeln('False');
end.

@Puporev · 14.06.2012, 13:02

Pascal

program z;
var s,t:string;
begin
     writeln('Введите S');
     readln(s);
     writeln('Введите T');
     readln(t);
    write(pos(t,s)>0)
end.

@Ivanacats · 14.06.2012, 13:12 **[ТС]**

благодарю, теперь я поняла где запуталась

@Ivanacats 1 / 1 / 0 Регистрация: 22.05.2012 Сообщений: 30
	14.06.2012, 13:12 [ТС]	4
	благодарю, теперь я поняла где запуталась 0