Advertisement
Guest User

Untitled

a guest
Apr 20th, 2018
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. var
  2.   a, b : char;
  3.   i, k : 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) and (k<>2) then begin
  11.       write(b);
  12.       k:=k+1;
  13.     end
  14.     else
  15.       write(s[i]);
  16.   end;
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement