Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var i, c: integer;
- var n: real;
- var str, str2: string;
- begin
- str2 := '';
- read(str);
- n := length(str);
- i := 1;
- while i <= n do begin
- if str[i] = '8' then begin
- insert(' ', str, i);
- i := i + 1;
- n := n + 1;
- end;
- i := i + 1;
- end;
- writeln(str);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement