Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
gamar1
25.02.2021 09:36 •
Информатика
Склавиатуры вводится натуральное число n. программа выводит максимальную нечетную цифру числа. написать программу на паскале.
Показать ответ
Ответ:
maksim5a
04.10.2020 00:07
Var
max, n, t: integer;
begin
readln(n);
max := -1;
while n > 0 do
begin
t := n mod 10;
if (t mod 2 = 1) and (max < t) then
max := t;
n := n div 10;
end;
if max = -1 then writeln('Нет такого числа')
else
writeln('Max = ', max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
OLYA332321
31.01.2022 23:42
ОШИБКА@ Необходимо вычислить в Excel 706−48. Запись в MS Excel выглядит следующим образом: 706()48 −706−48 =706−48...
Adonis12321
08.08.2022 09:44
Определи, какие действия с информацией выполнил Василий Василию принесли огненный борщ такого яркого рубинового цвета, что он решил написать о нем пост. Он сделал фото и...
nikitabordkin
06.02.2020 04:43
Назовём данную таблицу TEMPERATURA. Месяц 1 2 3 4 5 6 7 8 9 10 11 12 Температура −21 −15 −9 1 8 14 21 26 10 7 −4 −10 Тогда TEMPERATURA [12]=...
070974zZ
21.08.2020 15:55
Конденсаторы с емкостями 2,5•10-6ф, 4•10-6ф и 9•10-6ф соединили последовательно и присоединили к источнику постоянного тока. при этом оказалось, что напряжение на первом...
dxdarthur2001
21.08.2020 15:55
Как человек воздействует на литосферу, атмосферу и гидросферу?...
Елисавета23
21.08.2020 15:55
Расстояние между домом и магазином 600 м. дедушка преодолевает расстояние от дома до магазина за 5 минут, а бабушка это расстояние проходит за 6 минут. на сколько метров...
Sashafhvh
21.08.2020 15:55
1) в конце каждого предложения поставить нужныйи знак препинания: точку,вопросительный,восклицательный знак.2)подчеркнуть главные члены предложения.3)в 1 предложени. поставить...
Katialka11
21.08.2020 15:55
Лексичну помилку допущено в рядку а) діюче законодавство б) цікава пропозиція в) підсумкове заняття г) курячий бульйон д) запорука успіху...
eduard22222
21.08.2020 15:55
Перевидите текст! салауатты өмір салты үшін өте маңызды,денсаулыққа тікелей қатысты.коғамның болашагы әрбір ң денсаулығына байланысты.денсаулық дегенымыз ағзасының жан-жақты...
Ася065
21.08.2020 15:55
Определит степень окисления элемента s в соединенияхолодильнике so2, h2s,caso3, as2s3,so решение нужно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
max, n, t: integer;
begin
readln(n);
max := -1;
while n > 0 do
begin
t := n mod 10;
if (t mod 2 = 1) and (max < t) then
max := t;
n := n div 10;
end;
if max = -1 then writeln('Нет такого числа')
else
writeln('Max = ', max);
end.