Advertisement
Varvara_Golovnova

Untitled

Dec 2nd, 2024
32
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. var
  2. d1,d2,d3,d4 : longint;
  3. s1,s2,s3 : string;
  4. c1 : char;
  5. begin
  6. readln(c1);
  7. readln(s1);
  8. readln(s2);
  9. d1:=pos(c1,s1);
  10. s1[d1]:=':)';
  11. d2:=pos(c1,s1);
  12. s1[d1]:='_';
  13. d2:=pos(c1,s1);
  14. s1[d2]:='?';
  15. d3:=pos(c1,s2);
  16. s2[d3]:=':)';
  17. d4:=pos(c1,s2);
  18. s2[d4]:='_';
  19. d4:=pos(c1,s2);
  20. s2[d4]:='?';
  21. writeln(s1);
  22. writeln(s2);
  23. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement