Написать в Паскаль программу для решения следующей задачи.
Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку , добавляя после каждого символа символ '0'.
Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку , добавляя после каждого символа символ '0'.
Answers & Comments
var i,d:integer;
begin
d:=length(s);
i:=1;
while i<=d*2 do begin
insert('0',s,i+1);
inc(i,2);
end;
add:=s;
end;
var s:string;
begin
readln(s);
writeln(add(s));
end.