Написать в Паскаль программу для решения следующей задачи. Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку , добавляя после каждого символа символ '0'.
Написать в Паскаль программу для решения следующей задачи.
Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку , добавляя после каждого символа символ '0'.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы