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

Предыдущий
вопрос Следующий
вопрос

program AddZerosAfterDigits;
function AddZeros(s: string): string;
var
i: integer;
resultString: string;
begin
resultString := '';
for i := 1 to Length(s) do
begin
resultString := resultString + s[i] + '0';
end;
AddZeros := resultString;
end;
var
inputString, result: string;
begin
writeln('Enter a string of digits without zero:');
readln(inputString);
result := AddZeros(inputString);
writeln('Result: ', result);
end.

Пример работы программы:

Enter a string of digits without zero:
12345
Result: 1020304050