Advertisement
Guest User

Untitled

a guest
Apr 19th, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.21 KB | None | 0 0
  1. var
  2.   a, b : char;
  3.   i : integer;
  4.   s : string;
  5. begin
  6.   readln(a);
  7.   readln(b);
  8.   readln(s);
  9.   for i:=1 to length(s) do begin
  10.     if s[i]=a then
  11.       write(b)
  12.     else
  13.       write(s[i]);
  14.   end;
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement