Написать в Паскаль программу для решения следующей задачи.

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

Question

Информатика

Андрея

12 апреля, 10:05

Написать в Паскаль программу для решения следующей задачи.

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

+3

Ответы (1)

Знаете ответ на вопрос?

Орест · 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.