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;
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
