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

Предыдущий
вопрос Следующий
вопрос

Приведу пример кода на Pascal для решения данной задачи:

program MaxDigit;
var
num, maxDigit, currentDigit: integer;
begin
writeln('Введите целое число, состоящее из разных цифр: ');
readln(num);
maxDigit := 0;
while num <> 0 do
begin
currentDigit := num mod 10; // получаем последнюю цифру числа
if currentDigit > maxDigit then
maxDigit := currentDigit; // обновляем максимальную цифру
num := num div 10; // отбрасываем последнюю цифру числа
end;
writeln('Наибольшая цифра заданного числа: ', maxDigit);
end.

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