SHARE
TWEET

Untitled

a guest Nov 12th, 2019 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var i, c: integer;
  2. var n: real;
  3. var str, str2: string;
  4.  
  5. begin
  6.   str2 := '';
  7.   read(str);
  8.   n := length(str);
  9.   i := 1;
  10.   while i <= n do begin
  11.     if str[i] = '8' then begin
  12.       insert(' ', str, i);
  13.       i := i + 1;
  14.       n := n + 1;
  15.     end;
  16.     i := i + 1;
  17.   end;
  18.   writeln(str);
  19. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top