Для заданного натурального числа найти наибольшую цифру - Turbo Pascal
Формулировка задачи:
Помогите написать программу на Турбо Паскале:Для заданного натурального числа найти наибольшую цифру, стоящую на нечетном месте, считая от младших разрядов к старшим.
Решение задачи: «Для заданного натурального числа найти наибольшую цифру»
textual
Листинг программы
{Для заданного натурального числа найти наибольшую цифру, стоящую на нечетном месте, считая от младших разрядов к старшим. } var max: byte; k, n, i: integer; begin readln(n); max := 0; i := 0; while n > 0 do begin inc(i); k := n mod 10; if (odd(i)) and (max < k) then max := k; n := n div 10; end; writeln('MAX: ', max); end.
Объяснение кода листинга программы
- В начале кода объявляются переменные: max - для хранения наибольшей цифры, k - для хранения остатка от деления числа на 10, n - для хранения введенного числа. Переменная i инициализируется значением 0.
- Затем происходит чтение введенного числа с помощью функции readln().
- После этого переменная max инициализируется значением 0, а переменная i устанавливается в 0.
- Далее идет цикл while, который выполняется до тех пор, пока число n больше 0.
- Внутри цикла переменная i увеличивается на 1.
- Затем переменная k инициализируется остатком от деления числа n на 10.
- Если остаток от деления i на 2 (переменная i) является нечетным и значение переменной max меньше значения переменной k, то переменная max устанавливается равной значению переменной k.
- После этого значение переменной n делится на 10 и результат присваивается переменной n.
- Цикл while повторяется до тех пор, пока число n не станет равным 0.
- По завершении цикла выводится на экран значение переменной max с помощью функции writeln().
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д