Вот на pascal. program css; var a,b,s:string; i,k:integer; begin readln (a); readln (b); k:=length (b); for i:=1 to (length (a)) do begin s:= copy (a,i,k); if (s = b) then begin write (i); end; end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
