Question

Найти максимальную цифру натурального числа N. паскаль Input Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее 2000000000. Output Нужно выдать на стандартное устройство вывода 1 цифру – наибольшую в данном числе. Sample Input Sample Output 375859 9 123856387 8

Answer 1

Ответ:

var n,max,l: integer;

begin  

readln(n);

max := -1000;

while n <> 0 do

begin

l:= n mod 10;

if l > max then

max := l;

n := n div 10;

end;

writeln(max);

end.

Объяснение:

Answer 2

Для нахождения максимальной цифры натурального числа N вам следует преобразовать число в строку (или массив символов) и затем найти наибольшую цифру среди символов этой строки. Вот пример кода на языке Pascal:

pascalCopy code
program MaxDigit;

var
  N: Int64; // Используем Int64, чтобы поддерживать числа до 2000000000
  digit: Char;
  maxDigit: Char;
begin
  // Вводим число с клавиатуры
  Readln(N);

  // Преобразуем число в строку и находим максимальную цифру
  maxDigit := '0'; // Предполагаем, что максимальная цифра - 0
  for digit in IntToStr(N) do
  begin
    if digit > maxDigit then
      maxDigit := digit;
  end;

  // Выводим результат
  Writeln(maxDigit);
end.

Вы можете ввести натуральное число, и программа выдаст наибольшую цифру в этом числе. Например:

makefileCopy code
Input:
375859

Output:
9

makefileCopy code
Input:
123856387

Output:
8

Обратите внимание, что в этом примере используется тип данных Int64, чтобы поддерживать числа до 2000000000.