Question

Дано натуральное число. Заменить все 7 в данном числе цифрами 8 (через mod) через паскаль !!!!!!!!!!!!!!!!!!!!!!!

Answer 1

Program z1;  Var n,d,s,l: integer; Begin  write('Введите число = '); readln(n);  l:= 1;  s:= 0;  while n > 0 do  begin    d:=n mod 10;    if (d = 7) then d:=8;    d:= d * l;    s:= s + d;    l:= l * 10;    n:= n div 10;  end;  writeln(s);End.

Answer 2

Для замены всех цифр 7 на цифру 8 в данном натуральном числе можно использовать алгоритм, основанный на остатках от деления на 10 (через операцию mod).

1. Считываем данное натуральное число. 2. Инициализируем переменную-результат result = 0. 3. Инициализируем переменную-счетчик power = 0. 4. Пока данное число не равно 0, выполняем следующие шаги: - Получаем остаток от деления данного числа на 10 (digit = число mod 10). - Если digit равно 7, заменяем его на 8 (digit = 8). - Увеличиваем результат на digit, умноженный на 10 в степени power (result = result + digit * 10^power). - Увеличиваем счетчик power на 1 (power = power + 1). - Делаем целочисленное деление данного числа на 10 (чтобы перейти к следующей цифре). 5. Выводим полученный результат result.

Пример: Пусть данное натуральное число равно 17327.

Шаг 1: Считываем число 17327. Шаг 2: Инициализируем result = 0. Шаг 3: Инициализируем power = 0.

Шаг 4: digit = 17327 mod 10 = 7 digit = 8 (заменяем 7 на 8) result = result + 8 * 10^0 = 8 power = power + 1 = 1 данное число = 17327 / 10 = 1732

Шаг 4: digit = 1732 mod 10 = 2 result = result + 2 * 10^1 = 28 power = power + 1 = 2 данное число = 1732 / 10 = 173

Шаг 4: digit = 173 mod 10 = 3 result = result + 3 * 10^2 = 328 power = power + 1 = 3 данное число = 173 / 10 = 17

Шаг 4: digit = 17 mod 10 = 7 digit = 8 (заменяем 7 на 8) result = result + 8 * 10^3 = 8328 power = power + 1 = 4 данное число = 17 / 10 = 1

Шаг 4: digit = 1 mod 10 = 1 result = result + 1 * 10^4 = 18328 power = power + 1 = 5 данное число = 1 / 10 = 0

Шаг 5: Выводим результат result = 18328.

Таким образом, после замены всех цифр 7 на цифру 8 в числе 17327 получаем число 18328.