Question

Написать в Паскаль программу для решения следующей задачи.
Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку , добавляя после каждого символа символ '0'.

Answer 1

function add(s:string):string;
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.