Question

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

Answer 1

var i,max: Integer;
n,m: String;
begin
max:=0;
readln(n);
for i:=1 to length(n) do
begin
if max<n[i] then max:=n[i];
end;
m:=n;
m[length(m)]:=max;
writeln(m);
end.