Напишите процедуру на Паскале, которая заменит все цифры в строке на следующие по счету, а 9 заменит на 0. Входной

Название: Замена цифр в строке

Пояснение: Для решения данной задачи на Паскале, необходимо создать процедуру, которая будет принимать строку в качестве входного параметра и заменять все цифры на следующие по счету, а цифру 9 заменять на 0.

Вот один из возможных вариантов реализации данной процедуры:

procedure ReplaceDigits(var stroka: string);

var

  i: integer;

begin

  for i := 1 to length(stroka) do

  begin

    if stroka[i] in ["0".."8"] then

      stroka[i] := chr(ord(stroka[i]) + 1)

    else if stroka[i] = "9" then

      stroka[i] := "0";

  end;

end;

В данной процедуре мы используем цикл `for`, чтобы перебрать все символы входной строки. Затем мы проверяем каждый символ. Если символ является цифрой от "0" до "8", то заменяем его на следующий по счету символ. Если символ - цифра 9, то заменяем его на 0.

Например:

pascal

var

  str: string;

begin

  str := "u81 910 jj4";

  ReplaceDigits(str);

  writeln(str); // Выведет: u92 021 jj5

end.

Совет: Если у вас возникнут трудности с пониманием данной задачи или написанием процедуры, рекомендуется разобраться с базовыми понятиями Паскаля, такими как строки, циклы и условные операторы.

Закрепляющее упражнение: Напишите процедуру на Паскале, которая будет заменять все буквы в строке на предыдущие по алфавиту, а букву "a" заменять на "z". Входной параметр процедуры - переменная "stroka" типа string. Пример строки: "abc xyz". Ожидаемый результат: "zab wxy".