Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
misha426
10.11.2020 14:51 •
Информатика
Дано натурально число. найти его максимальную цифру, используя цикл while. (паскаль)
Показать ответ
Ответ:
arzumirzeyeva
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 оценок)
Популярные вопросы: Информатика
Kira0710
07.07.2020 12:34
создайте список роста учеников в классе. Выведите тех участников у кого рост больше чем у учасмтника справа В питоне...
ress334
07.06.2022 07:54
размер массива [10][10] Вывести как на рисунке закрашеное синем ,числа в масиве любые,...
anastasiyanast29
20.03.2020 20:30
Домашнее задание Собери буквы в ячейках по цвету и найди термины, относящиеся к теме. ЕТ Л д А И ИРА РА S ои ли в А з СРА Тгт Е У ЖHв и Е C У T K A H С НЧ Н д Б Например: «Датчик»....
anuchka666
30.10.2022 00:23
Во Как называется набор элементов с подобранными параметрами в PowerPoint? СхемаТемаСлайд ...
JIikrona
16.02.2022 23:57
Вычисли значение математического выражения в МS Excel(55+119)-2(71:(6+6))...
Bobskromnaysh12
04.05.2020 14:46
хеелп Две пружины жесткостью k1=0,5 кН/м и k2=1 кН/м скреплены параллельно. Определить потенциальную энергию этой системы при абсолютной деформации ∆ι=4 см....
ksenia1234567890123
29.09.2020 20:19
Выбери предложения, которыеМОЖНО ПОНЯТЬ несколькими , то есть предложенияс синтаксической омонимией.серебро заменяет золото. всё готово? ты всё поешь? я люблю читать книги об...
jdjehdbe
05.06.2022 21:28
нужно написать предложения по картинкам про хобби этих людей...
gipotop
04.03.2021 22:17
написать ЛитератураСочинение-рассуждение Тема любви и счастья в семье (на примере рассказа А.И. Куприна Куст сирени ). Опираться на план: тезис, пример-аргумент, вывод...
Caflen
14.01.2020 06: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.