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.

Answer 2

Для решения данной задачи на языке Pascal ABC (Pascal для начинающих), можно использовать следующий код:

pascalCopy code
program ReplaceLastDigit;

function MaxDigit(n: Integer): Integer;
var
  maxDigit: Integer;
begin
  maxDigit := 0;
  while n > 0 do
  begin
    if n mod 10 > maxDigit then
      maxDigit := n mod 10;
    n := n div 10;
  end;
  Result := maxDigit;
end;

function ReplaceLastDigitWithMax(n: Integer): Integer;
var
  lastDigit, maxDigit: Integer;
begin
  lastDigit := n mod 10;
  maxDigit := MaxDigit(n div 10);
  Result := (n div 10) * 10 + maxDigit;
end;

var
  N, M: Integer;
begin
  Write('Введите натуральное число N: ');
  Readln(N);

  M := ReplaceLastDigitWithMax(N);
  Write('Новое число M: ', M);
end.

При запуске программы, она запросит ввести натуральное число N и затем выведет новое число М, которое получается заменой последней цифры числа N на значение наибольшей цифры в записи числа N.