Решаем задачи Абрамян на Паскале. String31

String31. Даны строки $$S$$ и $$S_0$$. Проверить, содержится ли строка $$S_0$$ в строке $$S$$. Если содержится, то вывести True, если не содержится, то вывести False.

Решение:

program String31;
var
 S,s0:string;
 C:Char;
 i:integer;

begin
 Write('S:');
 Readln(S);
 Write('S0:');
 Readln(S0);

 writeln(pos(S0,S)>0);
end.

program String31;

var

S,s0:string;

C:Char;

i:integer;

begin

Write('S:');

Readln(S);

Write('S0:');

Readln(S0);

writeln(pos(S0,S)>0);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String31

Комментарии:

Добавить комментарий Отменить ответ