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

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

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

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

Enter a string of digits without zero
1234
Result: 1020304050