Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dedula5
29.11.2022 21:35 •
Информатика
Склавиатуры вводится натуральное число n. программа выводит максимальную нечетную цифру числа. написать программу на паскале.
Показать ответ
Ответ:
lisa22151
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 оценок)
Популярные вопросы: Информатика
mariana20021
21.06.2020 03:10
Сколько раз будет выполнен заданный цикл?fori:=1 to 15 dot:= random (100)...
Dan0304
29.09.2022 21:58
Объявлена функция int Funct1(int a, int b) {return a/b;} Далее - функция main() , в которой есть строка int z = Funct1( 15, 20); Чему в результате будет равен z ?...
Чикчирик12
11.06.2022 14:00
Защитите файлы , созданные в MS Power Point 2010...
zilga1
03.11.2021 03:57
Выберите основные составляющие текста программы Pascal a) Заголовок, описание, операторы b) Операторы c) Начало, программа, окончание d) Заголовок, программа, окончание...
amishka01
03.03.2020 14:41
Определить значение переменной s после выполнения операторов:i:=0; s:=0;while i 2 dobegini:=i+1;s:s+i*iend;Заранее...
Sasha200593
02.03.2023 07:58
11) Соотнесите понятие с определением: 1) Имя a) это то что конкретно хранится в этой переменной 2) Тип b) это название переменной, по которому к ней будет обращаться программа....
FoxFantasy
26.12.2021 18:59
6) К какому типу переменных относится переменная real? a) Целый b) Символьный c) Вещественный d) Логический 7) К какому типу переменных относится переменная integer? a) Целый...
лабтвб
17.11.2022 20:40
Прикладна програма, яка призначена для опрацювання даних, поданих в електронних таблицях: А) Текстовий процесор Б) Графічний редактор В) Табличний процес Г) Середовище виконання...
district31
18.08.2020 14:04
Структуру сукупність даних, розміщених по рядках і стовпцях А) Таблиця Б) Малюнок В) Презентація Г) Проект...
elizawetailjin
17.03.2023 09:41
Определи основание системы счисления числа 1618....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.