Question

1.Дана строка. Встречается ли в ней подстрока <<,_>>? Паскаль

Answer 1

var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
  writeln('<<,_>> не встречается в заданной строке')
else
  writeln('<<,_>> встречается в заданной строке');
end.