Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Zurawlevigor
26.06.2019 10:20 •
Информатика
Склавиатуры вводится натуральное число n. найдите и выведите самую большую цифру этого числа.
Показать ответ
Ответ:
снегурочка01
21.07.2020 09:31
Var
n,m:integer;
begin
read(n);
m:=0;
while n<>0 do
begin
if m<(n mod 10) then m:=n mod 10;
n:=n div 10;
end;
writeln(m);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alenka199918
09.12.2021 19:23
Дан одномерный массив.Запишите верный ответ....
valiafurch
02.07.2019 13:40
Что такое язык общения? заранее -^...
дошикестдошик
02.07.2019 13:40
На прямой отмечено несколько точек. после этого между каждыми двумя соседними точками добавили по точке. такую операцию повторили 3 раза, и в результате на прямой оказалось 81...
nikdelordp08m0z
02.07.2019 13:40
Впоследовательности каждое число, начиная с третьего, получено из предыдущих по некоторому строгому правилу. угадайте это правило и продолжите ряд – напишите одно следующее число....
Gesha11
02.07.2019 13:10
Статья, набранная на компьютере текста содержит 30 страниц по 40 строк. в каждой строке 50 символов. определите объем информации...
anasteishamrrr
02.07.2019 11:14
Программирование, delphi. 1, вроде, код написала, но работает неисправно. где ошибка? и желательно исправленный код....
Katуа07
28.04.2020 11:25
Изменив построенную модель роста и убывания решите следующую задачу: На пищевом комбинате в установку по производству дрожжей заложена 1т дрожжевой массы. При поддержании оптимальной...
tanyainua
28.04.2020 11:25
Сколько раз будет выполнен цикл forn:=1to63do?...
veterantitanfaoz8ptr
28.04.2020 11:24
Заполните алгоритмические кроссворды. Придумайте задания для привиденных блок схем. Напишите к ним программы. СДЕЛАЙТЕ ТРАССИРОВКУ ПРОГРАММ...
marinamoshonkina
28.04.2020 11:24
Какое на следующих утверждений Точнее всего раскрываетсмысл понятия информация с обыденной точки зрения?а) последовательность знаков некоторого алфавитаб) книжный фонд библиотекив)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
n,m:integer;
begin
read(n);
m:=0;
while n<>0 do
begin
if m<(n mod 10) then m:=n mod 10;
n:=n div 10;
end;
writeln(m);
end.