Дано натуральное число N. Получить новое число М, которое образуется из числа N путем замены последней цифры на значение наибольшей цифры в записи числа N. Пример. N= 128 452, М= 128 458.
На Pascal ABC
Дано натуральное число N. Получить новое число М, которое образуется из числа N путем замены последней цифры на значение наибольшей цифры в записи числа N. Пример. N= 128 452, М= 128 458.
На Pascal ABC
На Pascal ABC
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program ReplaceLastDigit;
function MaxDigit(num: integer): integer;
var
maxDigit: integer;
begin
maxDigit := 0;
while num > 0 do
begin
if num mod 10 > maxDigit then
maxDigit := num mod 10;
num := num div 10;
end;
MaxDigit := maxDigit;
end;
function ReplaceLastDigitWithMax(num: integer): integer;
var
lastDigit, maxDigit, newNum: integer;
begin
lastDigit := num mod 10;
maxDigit := MaxDigit(num);
newNum := (num div 10) * 10 + maxDigit;
ReplaceLastDigitWithMax := newNum;
end;
var
N, M: integer;
begin
write('Enter a natural number N: ');
readln(N);
M := ReplaceLastDigitWithMax(N);
writeln('New number M:', M);
end.