Question

Написать программу на языке программирования Паскаль: Найти наибольшую цифру натурального числа. С клавиатуры вводится натуральное число. Найти его наибольшую цифру. (Например, введено число 124653. Наибольшая цифра в нем 6).

Answer 1

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая находит наибольшую цифру введенного натурального числа:

pascalCopy code
program MaxDigit;

var
  num, digit, maxDigit: Integer;

begin
  // Вводим натуральное число
  Write('Введите натуральное число: ');
  Readln(num);
  
  // Инициализируем переменную для хранения наибольшей цифры
  maxDigit := 0;
  
  // Пока число не равно нулю
  while num > 0 do
  begin
    // Получаем последнюю цифру числа
    digit := num mod 10;
    
    // Сравниваем с текущей наибольшей цифрой
    if digit > maxDigit then
      maxDigit := digit;
    
    // Убираем последнюю цифру из числа
    num := num div 10;
  end;
  
  // Выводим наибольшую цифру
  Writeln('Наибольшая цифра: ', maxDigit);
end.

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