Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Katauorotkevic9
08.05.2023 08:12 •
Информатика
нужно написать программу которая выводит наибольшую цифру в введенном числе.
Ответ:
Мария20041007
08.10.2020 00:03
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,dmax):=(Abs(ReadInteger('n=')),0);
while n>0 do begin
var t:=n mod 10;
if t>dmax then dmax:=t;
n:=n div 10
end;
Writeln(dmax)
end.
Пример
n= 2450234
5
0,0
(0 оценок)
Популярные вопросы: Информатика
Йыч
08.02.2021 00:05
Найдите объём куба V, если известна длина ребра a этого куба. int main () { int a, V; cout a: ; cin a; if (a 0) { V = a * a * a; cout V = V endl; } else { cout Ошибка...
valentinaproneValya
04.10.2021 23:34
1. Компьютер — это: a. устройство для обработки аналоговых сигналов. b. устройство для хранения информации любого вида; c. электронное вычислительное устройство для...
SVT38
06.03.2023 12:21
Определить значение площади прямоугольника по его длине и диагонали в паскале...
stipstip353p090as
06.03.2023 12:21
Вычислить сумму тех элементов массива a(10) числовые значения которых принадлежат полуинтервалу i =a[10] =i+1...
bykvav
06.03.2023 12:21
1. процесс проектирования ис - это a) это документ, где излагаются основные концепции построения автоматизированной системы или отдельных ее подсистем. b) это процесс...
ElzaSalih
06.03.2023 12:21
7. технический проект a) это проектная документация, в которой описываются проектные решения по созданию и эксплуатации информационной системы. b) это коммуникационная...
алик143
07.12.2022 07:57
Если на устройсве(ПК)нет почты то истоия сохроняется ?Это...
Dash528
16.02.2021 14:11
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 1. Программа получает на вход количество чисел в...
ksusha2001zxtop
16.11.2022 04:42
На картинке изображены блоки датчика в трех режимах. Они обозначены буквами. Припиши к названиям режимов датчика цвета буквы соответствующих им блоков...
Skylordeg
13.06.2020 12:50
Сколько в числе всего 2 ? 1311222112111312211311123113322112132113213221133122211332111213112221133211322112211213322112111312211312111322212321121113121112131112132112311321322112111312212321121113122112131112131221121321132132211231131122211331121321232221121113122113121122132112311321322112111312211312111322211213111213122112132113121113222112132113213221133112132123222112311311222113111231132231121113112221121321133112132112211213322112111312211312111322212311222122132113213221123113112221133112132123222112111312211312111322212321121113121112133221121311121312211213211312111322211213211321322123211211131211121332211213211321322113311213212312311211131122211213211331121321122112133221123113112221131112311332111213122112311311123112111331121113122112132113121113222112311311222113111221221113122112132113121113222112132113213221133122211332111213322112132113213221132231131122211311123113322112111312211312111322212321121113122123211231131122113221123113221113122112132113213211121332212311322113212221...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var (n,dmax):=(Abs(ReadInteger('n=')),0);
while n>0 do begin
var t:=n mod 10;
if t>dmax then dmax:=t;
n:=n div 10
end;
Writeln(dmax)
end.
Пример
n= 2450234
5