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

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

Question

Информатика

Андрея

23 декабря, 03:31

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

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

+5

Ответы (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.