Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
25tajna
08.10.2022 03:45 •
Информатика
:найти самую большую цифру целого числа. в турбо паскаль.
Показать ответ
Ответ:
VovaMel2017
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 оценок)
Популярные вопросы: Информатика
HeBce3HauKa
31.01.2020 22:36
Какой минимальный объем памяти необходим для хранения одной точки изображения,в котором 2 различных цвета?...
morcowqwerty
31.01.2020 22:36
1. какие из перечисленных функций выполняет защитный комплекс eset nod32 smart security? вариант 1 функцию веб-браузера вариант 2 функцию организации родительского контроля...
Katerina20015
31.01.2020 22:36
8. укажите «лишний» объект с точки зрения соглашения о смысле используемых знаков: а) буквы б) дорожные знаки в) цифры г) нотные знаки...
pya98
21.02.2020 01:37
ТЕСТОВЫЕ ЗАДАНИЯ К РАЗДЕЛУ ...
dzyskristina503
23.08.2022 00:54
Питання №1 ? Які умовні оператори використовують в розгалуженнях? if...else та for…in відсутня правильна відповідь if та if...else if та for…in Питання №2 ? Що буде...
NiKaEmpty
30.06.2020 04:09
определяет обязанности судьи во время соревнования робосумо слежение за соблюдением правил во время турнира проверка робота на соответствие прописанным требованиям проведения...
vadimbukov
30.11.2022 22:33
Большую роль в укреплении советской власти в аулах и привлечение трудящихся к государственному и з...
kariiinka
01.09.2020 04:02
Прочитайте текст. Какая информация для вас является новой, а какая известной? В каком стиле написан данный текст? Составьте план, опи- раясь на алгоритм: 1) определите...
yana221002
04.09.2020 13:25
1)аяз би хан мен уәзірлері арасындағы алауыздық: 2)Шыншылдықтың шыңы:3)Сетрке беріктік: үзінді кере...
ЖекЖек
13.04.2020 18:46
Байбөріге сипаттамаӨтн комектесндрш...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.