Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nurasylmahambet
16.08.2021 07:23 •
Информатика
Дано целое число, состоящее из разных цифр. определить, какая из цифр заданного числа больше, т. е. найти наибольшую цифру числа. через
Показать ответ
Ответ:
Даша07кбр
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 оценок)
Ответ:
okcanatsarenko
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 оценок)
Популярные вопросы: Информатика
danilstal14
02.01.2022 18:31
Алфавит племени мульти имеет 32-ух символьный алфавит.племя пульти использует 64-х символьный алфавит, вожди племени обменялись письмами.письмо племени мульти содержало 80...
ВоительЧерноснежка
02.01.2022 18:31
Для записи сообщения использовался 64-ех символьный алфавит. каждая страница содержит 30 строк, все сообщение содержит 8775 байта информации и занимает 6 страниц. сколько...
lampec1
01.06.2020 22:11
Решить в паскале перевести заданное количество байтов в биты, килобайты, мегабайты....
ksenia5051
29.06.2020 19:11
Примеры отношение между двумя объектами...
Loader
13.06.2021 10:04
Створіть проект для розв язання і: клієнт поклав у банк певну суму грошей. щорічно банк додає до суми заздалегідь визначений відсоток від суми, що зберігається на рахунку...
1Радуга1
17.04.2022 08:22
Таблица сравнение растровой, векторной и фрактальной графики (фото) + столбец фрактальная , строчки форматирование изображения , программы ...
anton2015b
26.06.2021 05:04
Введите в компьютер программу example2.выполните программу,получите результаты....
alinamagutina
28.02.2020 03:49
Написать пузырьковую сортировку в обратном направлении на основе кода во вложении. вложение: отсортировать от наибольшего значения к наименьшему # написать программу, которая...
CNikolas2001
24.09.2021 17:44
Постройте графическую модель решния из пункта а в пункт f ведет прямолинейная дорога длиной 35 км. остановки автобуса расположены в точках в,с,d,e. известно, что ас = 12 км,...
kaluznavikusa9
24.09.2021 17:44
Водной упаковке находится n керамических плиток размером 33 x 33 см. сколько упаковок плитки потребуется для того чтобы выложить ею пол в ванной комнате прямоугольной формы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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