С клавиатуры вводится натуральное число. Найти его наибольшую цифру.
Например, введено число 764580. Наибольшая цифра в нем 8.
Пусть переменная a – заданное число, переменная m – максимальная цифра.
Предположим, что последняя цифра числа и есть максимальная. Извлечем ее с помощью операции нахождения остатка при делении на 10.
Поскольку последнюю цифру мы уже учли, то избавимся от нее с помощью операции деления нацело на 10.
Далее в цикле будем извлекать с конца числа каждую его цифру и сравнивать со значением m. Если очередная цифра больше, то будем присваивать ее переменной m.
Также в цикле надо избавляться от последней, уже учтенной, цифры. Цикл завершает свою работу, когда переменная a станет равной нулю, т. е. он работает, пока переменная a больше нуля.
В конце программы выведем значение m на экран. Это и будет наибольшая цифра исходного числа.
1.Вывести на экран минимальную цифру числа и разряд, в котором она находится;
2.Вывести на экран максимальную цифру числа и разряд, в котором она находится;
3.Вывести на экран сумму максимальной и минимальной цифры.
4.Выяснить, сколько раз в натуральном числе встречается его максимальная цифра.
5.Проверить на четность минимальную цифру числа N.
Введите натуральное число N: 388456
Минимальная цифра – 3, находится в разряде 5;
Максимальная цифра – 8, находится в разряде 4;
Сумма максимальной и минимальной цифры – 11;
Максимальная цифра встречается 2 раза;
Минимальная цифра – нечетная.
- Попроси больше объяснений
- Следить
- Отметить нарушение
Pollywork 10.04.2015
Ответ
Проверено экспертом
Program prog;
uses crt;
var n,k,min,max,x,i,s: integer;
write(‘Введите натуральное число N: ‘);
readln(n);
x:=n;
s:=1;
writeln;
min:=9;
while x>0 do
begin
if x mod 10 > max then
begin
max:=x mod 10; k:=s;
end;
if x mod 10 0 do
begin
if n mod 10 = max then
k:=k+1;
n:=n div 10;
end;
writeln(‘Максимальная цифра встречается ‘,k,’ раз;’);
if min mod 2 = 0 then writeln(‘Минимальная цифра – четная.’)
else writeln(‘Минимальная цифра – нечетная.’);
- Комментарии (2)
- Отметить нарушение
Ответ
Проверено экспертом
Var
i,d,dmin,dmax,kmax,imin,imax:integer;
n:longint;
begin
Write(‘Введите натуральное число N: ‘); Read(n);
dmin:=10; dmax:=-1; <больше большего и меньше меньшего>
i:=0;
repeat
d:=n mod 10; n:=n div 10; Inc(i);
if dmax d then begin dmin:=d; imin:=i end
until n=0;
Writeln(‘Минимальная цифра – ‘,dmin,’ находится в разряде ‘,imin,’;’);
Writeln(‘Максимальная цифра – ‘,dmax,’ находится в разряде ‘,imax,’;’);
Writeln(‘Сумма максимальной и минимальной цифры – ‘,dmin+dmax,’;’);
Writeln(‘Максимальная цифра встречается ‘,kmax,’ раз(а);’);
Write(‘Минимальная цифра – ‘);
if (dmin mod 2)=0 then Writeln(‘четная.’)
else Writeln(‘нечетная.’)
end.
Тестовое решение:
Введите натуральное число N: 388456
Минимальная цифра – 3 находится в разряде 6;
Максимальная цифра – 8 находится в разряде 4;
Сумма максимальной и минимальной цифры – 11;
Максимальная цифра встречается 2 раз(а);
Минимальная цифра – нечетная.
На данный момент решены задачи:
Задача №1. Коровы – в стойла
Задача №2. Приближенный двоичный поиск
Показать полностью…
Задача №3. Сложность двоичного поиска
Задача №4. Двоичный поиск
Задача №5. Дейкстра
Задача №7. Заправки
Задача №49. Списки по классам
Задача №50. Игра в пьяницу
Задача №51. Правильная скобочная последовательность
Задача №52. Постфиксная запись
Задача №54. Простой стек
Задача №55. Стек с защитой от ошибок
Задача №56. Стек неограниченного размера
Задача №57. Простая очередь
Задача №58. Очередь с защитой от ошибок
Задача №60. Простой дек
Задача №61. Дек с защитой от ошибок
Задача №63. A[0], A[2], A[4], .
Задача №64. Вывести четные элементы
Задача №65. Количество положительных элементов
Задача №66. Количество элементов, больших предыдущего
Задача №67. Есть ли два элемента с одинаковыми знаками
Задача №68. Количество элементов больших обоих соседей
Задача №69. Переставить элементы в обратном порядке
Задача №70. Переставить соседние элементы
Задача №71. Циклический сдвиг вправо
Задача №72. Максимум в массиве
Задача №73. Количество различных элементов в монотонном массиве
Задача №74. a + b = c
Задача №80. Двоичные строки заданной длины
Задача №81. Двоичные строки заданной длины в обратном порядке
Задача №82. Все строки длины n из k различных символов
Задача №83. Все строки длины n из k различных символов, k>10 в обратном порядке
Задача №84. Все двоичные строки длины n, содержащие ровно k единиц
Задача №85. Все перестановки заданной длины
Задача №87. Все возрастающие последовательности длины k из чисел 1..n
Задача №88. Все убывающие последовательности длины k из чисел 1..n
Задача №89. Разбиение на невозрастающие слагаемые, лексикографический порядок
Задача №90. Разбиение на невозрастающие слагаемые, обратный порядок
Задача №91. Разбиение на неубывающие слагаемые, лексикографический порядок
Задача №92. Разбиение на неубывающие слагаемые, обратный порядок
Задача №93. Мирные ферзи
Задача №101. Циклическая строка
Задача №102. Проверить, является ли символ цифрой
Задача №103. Перевести символ в верхний регистр
Задача №104. Изменить регистр символа
Задача №105. Совпадают ли строки?
Задача №106. Количество слов
Задача №107. Самое длинное слово
Задача №108. Является ли слово палиндромом?
Задача №109. Две одинаковые буквы
Задача №110. Поиск подстроки
Задача №111. Капитан Флинт
Задача №112. Является ли строка палиндромом?
Задача №113. Список квадратов
Задача №114. Сумма цифр числа
Задача №115. Количество нулей
Задача №116. Минимальная и максимальная цифры
Задача №117. Двоичная запись
Задача №118. Обращение числа
Задача №119. Количество палиндромов
Задача №120. 1/0!+1/1!+1/2!+.
Задача №121. Обнулить последние биты
Задача №122. 2^n+2^m
Задача №124. Установить значение бита в 1
Задача №125. Инвертировать бит
Задача №126. Установить значение бита в 0
Задача №127. Обнулить все биты, кроме последних
Задача №128. Определить значение бита
Задача №129. Вывести значение байта побитно
Задача №131. Сравнение чисел
Задача №132. Сумма чисел
Задача №133. Разность чисел
Задача №134. Вычитание со знаком
Задача №135. Умножение чисел
Задача №146. Сложить две дроби
Задача №147. Алгоритм Евклида
Задача №149. Теорема Лагранжа
Задача №150. Сумма двух кубов
Задача №151. Дружественные числа
Задача №152. Гипотеза Гольдбаха
Задача №153. N-е число Фибоначчи
Задача №154. НОД (рекурсивный вариант)
Задача №155. Генератор
Задача №156. Без массивов
Задача №160. Путь в графе
Задача №161. Один конь
Задача №162. Табличка
Задача №163. Два коня
Задача №164. Обход в глубину
Задача №167. Разминка
Задача №174. Города и дороги
Задача №175. Светофорчики
Задача №176. Цветной дождь
Задача №177. Издевательство
Задача №178. Форд-Беллман
Задача №187. Шахматы (CD)
Задача №188. Карточки
Задача №195. Обратная перестановка
Задача №200. Площадь комнаты
Задача №201. Числа Фибоначчи
Задача №202. Игра со спичками
Задача №203. Мячик на лесенке
Задача №205. Наибольшая возрастающая подпоследовательность (НВП)
Задача №206. Биномиальные коэффициенты
Задача №223. Линейный поиск – 1
Задача №224. Линейный поиск – 2
Задача №225. Ближайшее число
Задача №226. Линейный поиск – 3
Задача №227. Максимальный элемент массива
Задача №228. Номер максимального элемента массива
Задача №229. Максимальный – вперед
Задача №230. Сортировка выбором максимума
Задача №231. Вставка числа
Задача №232. Сортировка вставками
Задача №233. Пузырьковая сортировка
Задача №240. Негласный палиндром
Задача №241. Тапочки
Задача №246. Квадратные таблицы
Задача №247. 3A + 5B
Задача №248. Слоники
Задача №253. Високосный год
Задача №254. Ладья
Задача №255. Слон
Задача №256. Ферзь
Задача №257. Конь
Задача №258. Шоколадка
Задача №259. Фишки
Задача №260. Уравнение
Задача №261. Сложное уравнение
Задача №262. Сдача
Задача №264. Мороженое
Задача №265. Котлеты
Задача №266. Координатные четверти
Задача №269. Площадь треугольника
Задача №270. Уравнение прямой I
Задача №271. Уравнение прямой II
Задача №274. Принадлежность точки прямой
Задача №277. Расстояние от точки до прямой
Задача №292. Максимум из двух чисел
Задача №293. Какое из чисел больше?
Задача №294. Максимум из трех
Задача №295. Существует ли треугольник?
Задача №296. Количество равных из трех
Задача №298. Король
Задача №300. Юлианский календарь
Задача №301. Квадратное уравнение
Задача №302. Тип треугольника
Задача №303. Коровы
Задача №304. Билеты на метро
Задача №305. Билеты на метро – 2
Задача №307. Степень
Задача №309. Голосование
Задача №310. Проверка на простоту
Задача №315. Сумма квадратов
Задача №316. Факториал
Задача №317. Число сочетаний
Задача №319. Геометрическая прогрессия
Задача №320. Сумма
Задача №321. Сумма – 2
Задача №322. Наиболее удаленная точка
Задача №323. Центр тяжести
Задача №324. Диаметр множества
Задача №325. Сортировка точек
Задача №326. Максимальный периметр
Задача №327. Максимальная площадь
Задача №328. Средний балл по предметам
Задача №329. Учащиеся без троек
Задача №330. Лучшие учащиеся
Задача №332. Отсортировать по среднему баллу
Задача №333. Четные числа
Задача №334. Остаток
Задача №335. Квадраты
Задача №337. Сумма цифр
Задача №338. Переверни число
Задача №339. Минимальный делитель
Задача №340. Делители числа
Задача №341. Количество делителей
Задача №342. Сумма ста
Задача №343. Сумма чисел
Задача №345. Нули
Задача №346. Подсчет чисел
Задача №347. Ноль или не ноль
Задача №348. Уравнение по возрастанию
Задача №349. Уравнение по убыванию
Задача №350. Количество решений
Задача №351. Факториал
Задача №352. Степень
Задача №353. Сумма степеней
Задача №354. Побочная диагональ
Задача №355. Симметричная ли матрица?
Задача №356. Состязания
Задача №357. Состязания – 2
Задача №358. Состязания – 3
Задача №359. Состязания – 4
Задача №360. Состязания – 5
Задача №361. Таблица умножения
Задача №362. Треугольник Паскаля
Задача №363. Заполнение змейкой
Задача №364. Заполнение диагоналями
Задача №365. Заполнение спиралью
Задача №366. Камни
Задача №401. Слишком вложенные скобки
Задача №434. Положение точек вне прямой
Задача №441. Точка пересечения медиан
Задача №460. Проверка на неориентированность
Задача №461. Петли
Задача №462. Подсчет количества ребер неориентированного графа
Задача №463. Подсчет количества ребер ориентированного графа
Задача №464. От матрицы смежности к списку ребер, неориентированный вариант
Задача №465. От списка ребер к матрице смежности, неориентированный вариант
Задача №466. От матрицы смежности к списку ребер, ориентированный вариант
Задача №467. От списка ребер к матрице смежности, ориентированный вариант
Задача №468. Проверка на наличие параллельных ребер, неориентированный вариант
Задача №469. Проверка на наличие параллельных ребер, ориентированный вариант
Задача №470. Степени вершин
Задача №471. Степени вершин по спискам ребер
Задача №472. Полустепени вершин
Задача №473. Полустепени вершин по спискам ребер
Задача №474. Истоки и стоки
Задача №475. Регулярный граф
Задача №476. Полный граф
Задача №477. Полуполный граф
Задача №478. Турнир
Задача №479. Транзитивность неориентированного графа
Задача №480. Транзитивность ориентированного графа
Задача №501. Пароль
Задача №563. Парты
Задача №595. Диета
Задача №596. Утренняя пробежка – 1
Задача №597. Утренняя пробежка – 2
Задача №611. Простые числа
Задача №612. Выражение
Задача №614. Треугольник и точка
Задача №615. Степень
Задача №616. Покер
Задача №617. Простые числа(2)
Задача №618. Перестановки
Задача №619. Маршрут
Задача №621. Длинная сумма
Задача №622. Спираль
Задача №623. Разложение на простые множители
Задача №624. Перестановки(2)
Задача №628. Змейка
Задача №630. Разложение на слагаемые
Задача №632. Площадь многоугольника
Задача №634. Скобки
Задача №748. Binary to hexadecimal
Задача №766. Сортировка слиянием
Задача №842. Последняя цифра числа Фибоначчи
Задача №843. Простая последовательность
Задача №846. Футбол
Задача №849. Калькулятор
Задача №1001. Наибольшее произведение
Задача №100. Строчки
Задача №1023. Автобусная экскурсия
Задача №1119. 0-1 рюкзак: наибольший вес
Задача №1120. 0-1 рюкзак: точный вес
Задача №1209. Клавиатура
Задача №1228. Москва-сортировочная
Задача №1377. Остовное дерево
Задача №1409. Ревизия
Задача №1411. Пузырьковая сортировка: количество обменов
Задача №1412. Столбцы
Задача №1415. Шифр Юлия
Задача №1416. Шкаф
Задача №1417. Конвертирование
Задача №1418. Разные
Задача №1421. Удали пробелы
Задача №1422. Шестеренки
Задача №1427. Матрица
Задача №1430. ГНЧЭ-1
Задача №1433. Кролики
Задача №1435. IP-адрес
Задача №1438. Сообразим на троих!
Задача №1440. Серебряная медаль
Задача №1441. МегаНОД
Задача №1444. Сапер
Задача №1445. Координаты соседей
Задача №1446. Результаты олимпиады
Задача №1447. Контроперация
Задача №1448. Апельсины бочками
Задача №1450. Идеальный отряд
Задача №1451. Четные и нечетные числа
Задача №1453. Полярные единички
Задача №1456. Шеренга
Задача №1457. Двойной переворот
Задача №1458. Переворот
Задача №1459. Римская система счисления
Задача №1460. Суперсдвиг
Задача №1461. Шарики
Задача №1466. Сумма от 1 до N
Задача №1468. Количество дней от начала эры
Задача №1474. Сумма цифр четырехзначного числа
