Правила форума
StrPos.PASЯзык:
Русский
English
{ Пример программы для функции StrPos }
uses Strings, Crt;
var
P : PChar;
S, SubStr : array[0 .. 79] of Char;
begin
ReadLn(S);
ReadLn(SubStr);
P := StrPos(S, SubStr);
if P = Nil then
WriteLn('Подстрока не найдена.')
else
WriteLn('Подстрока найдена в позиции ', P - S);
end.
var
P : PChar;
S, SubStr : array[0 .. 79] of Char;
begin
ReadLn(S);
ReadLn(SubStr);
P := StrPos(S, SubStr);
if P = Nil then
WriteLn('Подстрока не найдена.')
else
WriteLn('Подстрока найдена в позиции ', P - S);
end.
::
::
::
