Advertisement
Varvara_Golovnova

Untitled

Jul 18th, 2024
43
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. var
  2. s1,s2,s3 : string;
  3. d1 : longint;
  4. begin
  5. readln(s1);
  6. s2:=s1;
  7. d1:=pos('a',s1);
  8. s3:=copy(s1,d1,1);
  9. writeln('pos(',s3,',',s2,')=',d1);
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement