Найти самую большую цифру целого положительного числа - Pascal (243052)
Формулировка задачи:
Найти самую большую цифру целого положительного числа
С подробным объяснением что откуда взялось
Решение задачи: «Найти самую большую цифру целого положительного числа»
textual
Листинг программы
var n,mx:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);//число может быть и отрицательным
mx:=0;//пусть пока максимальная=0
while n>0 do//пока число не 0
begin
if n mod 10>mx then mx:=n mod 10;//отделяем последнюю цифру
//и сравниваем с максимумом
n:=n div 10; //сокращаем число в 10 раз
end;
write('Максимальная цифра в числе=',mx)
end.
Объяснение кода листинга программы
- Объявляются две переменные: n и mx типа integer (целое число).
- Пользователю предлагается ввести целое число n.
- Число n преобразуется в абсолютное значение, т.е. берется его модуль, с помощью функции abs(n).
- Переменной mx присваивается значение 0, которое будет служить максимальной цифрой.
- Запускается цикл while, который будет выполняться до тех пор, пока число n не станет равным 0.
- Внутри цикла проверяется последняя цифра числа n (n mod 10), и если она больше текущего значения максимальной цифры (mx), то значение переменной mx обновляется.
- Число n сокращается в 10 раз с помощью операции деления нацело (n div 10).
- После выхода из цикла while выводится сообщение с максимальной цифрой.