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

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

Question

Информатика

Инесса

16 июня, 05:52

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

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

+2

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