Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tema152331
07.06.2021 13:10 •
Информатика
:найти самую большую цифру целого числа. в турбо паскаль.
Показать ответ
Ответ:
аришка232
01.10.2020 12:48
Program bigDigit;
var n, maxdig: integer;
begin
maxdig := 0;
readln(n);
if (n < 0) then n := -n;
while n > 0 do
begin
if (n mod 10 > maxdig) then maxdig := n mod 10;
n := n div 10;
end;
writeln(maxdig);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
IlachinaViktori
10.01.2022 14:06
В треугольнике АВС точка О-пересечение медиан треугольника. D-середина ВС. \vec{AO}=k\cdot (\vec{AB}+\vec{BD}}). Найдите к. (ответ округлить до сотых)...
ВалентинЛаднов
10.01.2022 14:06
Приложение 2 заполнить не достающие сведения...
Lenechka20
10.01.2022 14:06
Впереди открылся свободный проход, и судно поплыло на северо-восток, но медленно, чтобы не столкнуться с льдинами и чтобы вовремя остановиться или повернуть в сторону синтаксический...
Малой98
19.01.2023 20:28
скласти схему мандрівки Сантьяго, визначити проблематику роману П. Коельйо Алхімік ....
khakimail
19.01.2023 20:28
Яку нову роль церкви визначив А.Шептицький в українському русі?...
Вика310387
19.01.2023 20:28
Почему развитые страны плавают под флагами развивающихся стран?...
pughluy
19.01.2023 20:28
Известно что угол АОС равен 88°.Какие углы можно найти?ABD,AOB,BAO....
irinalika
29.04.2021 04:49
решить контрольную по геометрии. 1 Задание: Даны куб ABCDA1B1C1D1 и α - плоскость,проходящая через точки A,B и D. Назовите: а) точки принадлежащие плоскости α;не принадлежащие...
alexstew1
29.04.2021 04:49
Выпиши из предложений и распредели в колонки обращения.1. Красуйся град Петров и стой неколебимо как Россия (А. Пушкин).2. Прощай с глазами синими тебя я не виню. Я цену настоящую...
danilosipov9997
29.04.2021 04:49
У квартирі, де живе Тарас, встановлено лічильники холодної гарячої води .1 січня лічильник холодної води показував 105 м кубічних, гарячої 112 м кубічних. 1 лютого лічильник...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n, maxdig: integer;
begin
maxdig := 0;
readln(n);
if (n < 0) then n := -n;
while n > 0 do
begin
if (n mod 10 > maxdig) then maxdig := n mod 10;
n := n div 10;
end;
writeln(maxdig);
end.