Question

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

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.

Answer 2

Задача

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

Решение

program AddZeroToString;

function AddZeroAfterEachDigit(inputString: string): string;
var
  i: integer;
begin
  // Инициализируем результирующую строку пустой строкой
  result := '';

// Проходим по каждому символу входной строки
  for i := 1 to Length(inputString) do
  begin
    // Добавляем текущий символ в результирующую строку
    result := result + inputString[i];

// Добавляем символ '0' после каждого символа
    result := result + '0';
  end;

// Возвращаем результирующую строку
  AddZeroAfterEachDigit := result;
end;

var
  input: string;
  output: string;
begin
  // Считываем входную строку
  Write('Введите строку: ');
  Readln(input);

// Вызываем пользовательскую функцию для добавления '0' после каждого символа
  output := AddZeroAfterEachDigit(input);

// Выводим результат
  Writeln('Результат: ', output);
end.

Объяснение решения

1. Программа начинается с объявления пользовательской функции `AddZeroAfterEachDigit`, которая принимает входную строку и возвращает строку с добавленными символами '0' после каждого символа. 2. Внутри функции мы инициализируем результирующую строку пустой строкой. 3. Затем мы проходим по каждому символу входной строки с помощью цикла `for`. 4. Внутри цикла мы добавляем текущий символ в результирующую строку и затем добавляем символ '0' после него. 5. После завершения цикла, возвращаем результирующую строку. 6. В основной части программы мы считываем входную строку с помощью `Readln`. 7. Затем вызываем пользовательскую функцию `AddZeroAfterEachDigit` и сохраняем результат в переменную `output`. 8. Наконец, выводим результат на экран с помощью `Writeln`.

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

Введите строку: 12345
Результат: 1020304050

В данном примере введена строка "12345". После вызова пользовательской функции `AddZeroAfterEachDigit`, получаем результат "1020304050", где после каждого символа добавлен символ '0'.