Предмет: Информатика,
автор: inikini
Хотя бы одно помогите сделать
Приложения:
Ответы
Автор ответа:
0
2
function looking (s1:string; s2:string):integer
j:integer;
begin
for j:=1 to length(s2) do
begin
if pos (copy(s2, j, 1), s1)>0 then
return pos (copy(s2, j, 1), s1);
end;
return 0;
end;
function looking (s1:string; s2:string):integer
j:integer;
begin
for j:=1 to length(s2) do
begin
if pos (copy(s2, j, 1), s1)>0 then
return pos (copy(s2, j, 1), s1);
end;
return 0;
end;
Интересные вопросы
Предмет: История,
автор: cat123q
Предмет: Алгебра,
автор: erzhankyzy05
Предмет: Математика,
автор: platonbulatov081
Предмет: Математика,
автор: arianakiska