Question

Вводится натуральное число. заменить в записи все цифры 1 на 5. Paskal. Без массивов. ​

Answer 1

Ответ:

PascalABC.NET 3.5.1

begin

 var a := Readstring().ToLower();

 a.RegexReplace('1', '5').Println;

end.

Answer 2

Для замены всех цифр 1 на 5 в записи натурального числа можно использовать следующий алгоритм:

1. Преобразовать число в строку для удобства работы с ним. 2. Пройти по каждому символу строки. 3. Если символ равен "1", заменить его на "5". 4. После обхода всех символов, преобразовать строку обратно в число.

Пример реализации на языке Pascal:

program ReplaceDigits;

var
  number, newNumber: string;
  i: integer;
  
begin
  // Чтение числа с клавиатуры
  write('Введите число: ');
  readln(number);
  
  // Замена цифр 1 на 5
  for i := 1 to Length(number) do
  begin
    if number[i] = '1' then
      number[i] := '5';
  end;
  
  // Вывод результата
  writeln('Измененное число: ', number);
end.

Например, если ввести число 123456789, то на выходе получим число 523456789.