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

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

Question

Информатика

Моша

20 июля, 04:37

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

Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку, добавляя после каждого символа символ '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.