Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ryure146
15.06.2022 12:46 •
Информатика
Дано целое число, состоящее из разных цифр. определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа. через
Показать ответ
Ответ:
Nazerke0606
08.10.2020 15:13
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.
0,0
(0 оценок)
Ответ:
maga050508
08.10.2020 15:13
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger; n.ToString.Max.Println
end.
Пример
1507163
7
0,0
(0 оценок)
Популярные вопросы: Информатика
liteops04
20.07.2021 19:08
1. из 40 учащихся нашего класса 32 любят молоко, 21 – лимонад, а 15 – и молоко, и лимонад. сколько в нашем классе не любят ни молоко, ни лимонад? 2. 12 моих одноклассников...
marina02427
19.08.2021 23:35
ОЧЕНЬ Для каких из чисел 16 19 24 25 38 ложно высказывание: НЕ (число 25) ИЛИ НЕ (число чётное)?...
Аккаунт удален
08.06.2023 15:07
6. Дайте развернутый ответ на вопрос: Как автор Станционного смотрителя относится к Самсону Вырину? * Мой ответ...
слава499
13.02.2021 18:14
очень Даны а = -3,5е1 – 5,7е2. Укажите координаты вектора а.А) -3,5;5,7В) 3,5;-5,7С) -3,5;-5,7D) 3,5;5,7 [1] 3. Даны вектора а -3;2 и b 1;6. Найдите координаты и длины векторов:1)...
баги82
13.02.2021 18:14
Доведіть, що «Фантазія-експромт» О. Кобилянської – автобіографічний твір....
burgerface
13.02.2021 18:14
Укажите имя существнтельное общего рода. А) плакса Б) ученик В) фасоль Г) повидло 7. Наiйдите несклоняемое имя существительное А) грусть Б) машина В) метро Г) ребенок Д) радость...
artgensh
01.03.2023 14:47
Складіть порівняльну таблицю становища українців в Наддніпрянщині та на Західній Україні. Критерії для порівняння обираете самі....
Alina2496
01.03.2023 14:47
нужна контрольная работа зайди на мой аккаунт и там есть вопросы окружающий мир контрольная работа это 2рая контрольная ...
ваня1234456786
13.09.2020 13:57
математика СОЧ дроби...
dashakomp2005
13.09.2020 13:57
Как понравиться парню анимешнику? (сама я анимешница)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger; n.ToString.Max.Println
end.
Пример
1507163
7