Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ukine
17.05.2021 01:56 •
Информатика
Дано натурально число. найти его максимальную цифру, используя цикл while. (паскаль)
Показать ответ
Ответ:
умная196
21.07.2020 17:24
Program max;
uses crt;
var n, x:integer;
begin
clrscr;
Write('N = ');
readln(n);
while abs(n)>0 do
begin
if abs(n mod 10) > x then
x:= abs(n mod 10);
n:=n div 10;
end;
write('Наибольшая цифра x = ', x);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
romapigula1357
10.11.2022 09:46
Ккакому типу относятся наиболее примитивные многоклеточные организмы...
Тирия
10.11.2022 09:46
:если можно условие и решение написать. бригаде рабочих надо покрыть асфальтом участок дороги между поселками.они уже заасфальтировали 5 км 400м,что составило пятую часть всего...
wwwoooddd
10.11.2022 09:46
С. отгадайте прилагательное: my first is an able modal verb. my second is an auxiliary verb. on the whole i mean an energetic person...
svepielisz
10.11.2022 09:46
Сколько ящиков, размеры которого 40х150х60см, можно разместить в контейнере объёмом 7,2м³....
dksusjehdh
10.11.2022 09:46
Можете ли вы гвоздем оказать давление равное 10 и 5 кпа прочитай какую силу для этого надо приложить к шляпке гвоздя если площадь острия гвоздя равна 0.1 мм2...
wenizi
10.11.2022 09:46
Что такое сфера общества, какие сферы общества вы знаете...
ksenya20042
10.11.2022 09:46
Вкакое время года пооисходят события в произведении л.н толстого кавказкий пленник ? 1 зима 2 весна 3 лето 4 осень...
keti261
10.11.2022 09:46
Начерти квадрат со стороной 4 см .начерти прямоугольник площадь которого равна площади заданного квадрата и обозначить его стороны...
irunahruha
10.11.2022 09:46
Отметь * правильные утверждения. подчеркните слова,которые доказывает твой выбор. если можешь,запиши свои примеры. 1.в слове может не быть суффикса мудрость,ключик,река,полевой,крокодил...
kuznetsovapoli
10.11.2022 09:46
Как написать рифму к словам подружка ватрушка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var n, x:integer;
begin
clrscr;
Write('N = ');
readln(n);
while abs(n)>0 do
begin
if abs(n mod 10) > x then
x:= abs(n mod 10);
n:=n div 10;
end;
write('Наибольшая цифра x = ', x);
end.