Дано натуральное число N. Получить новое число М, кото­рое образуется из числа N путем замены последней цифры на значение наибольшей цифры в записи числа N. Пример. N= 128 452, М= 128 458.
На Pascal ABC

Предыдущий
вопрос Следующий
вопрос

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.