Question

Дано целое число, состоящее из разных цифр. Определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа. ЧЕРЕЗ ПАСКАЛЬ!!!!

Answer 1

Var num, Mnum:integer;
begin
Mnum := 0;
readln(num);
while num <> 0 do
begin
if abs(num mod 10) > Mnun then
Mnum := abs(num mod 10);num := num div 10;
end;
writeln(Mnum);
end.

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger; n.ToString.Max.Println
end.

Пример
1507163
7

Answer 3

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

1. Считать входное число.
2. Преобразовать число в строку, чтобы можно было обращаться к его цифрам по отдельности.
3. Перебрать все символы строки (цифры) и сравнить их между собой, чтобы найти наибольшую.

Ниже приведен пример программы на Pascal, реализующий описанный алгоритм:

pascalCopy code
program MaxDigit;

uses
  SysUtils;

var
  numStr: string;
  maxDigit: Char;
  i: integer;

begin
  Write('Введите целое число из разных цифр: ');
  ReadLn(numStr);

  if Length(numStr) = 0 then
  begin
    WriteLn('Ошибка: Введена пустая строка.');
    Exit;
  end;

  maxDigit := numStr[1];

  for i := 2 to Length(numStr) do
  begin
    if numStr[i] > maxDigit then
      maxDigit := numStr[i];
  end;

  WriteLn('Наибольшая цифра в числе: ', maxDigit);
end.

Пожалуйста, скопируйте этот код в среду разработки Pascal (например, Lazarus) и запустите его. Программа запросит ввод целого числа и вернет наибольшую из его цифр.