tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число n найти
Дано целое число n найти самую максимальную цифру этого числа
fdffxdf
1 07.06.2019 07:20
1
Ответы
zlatashmyrova
01.10.2020 21:18
Var n,x,max:integer;
begin
readln(n);
while n>0 do
begin
x:=n mod 10;
if x>max then max:=x;
n:=n div 10;
end;
writeln('Максимальная цифра: ',max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
likiad123
04.05.2020 11:14
3. Изучите скрипт и составьте блок-схему для данной задачи...
irinar1
04.05.2020 11:14
Як відомо, Чебурашка потрапив з тропічного лісу в місто в ящику з апельсинами та жив у телефонній будці. Після знайомства з крокодилом Геною та Галею вони вирішили побудувати будинок...
аринанеамримр
28.03.2019 15:20
Сколько единиц в двоичной записи числа если тут что-то надо расписать - напишите подробно!...
дилли1
28.03.2019 15:20
Вычислите сумму чисел x и y,при x = a1₁₆, y=1101₂. результат представьте в десятичной системе счисления. решите подробно,...
AnnaFruzanna
28.03.2019 15:20
Всистеме счисление с некоторым основанием десятичное число 129 записывается как 1004. укажите это основание если тут надо что-то расписать, решите подробно, !...
гик9
28.03.2019 15:20
Для кодирования букв а,б,в,г используются четырехразрядные последовательные двоичные числа от 1000 до 1011 соответственно. таким закодировать последовательность символов бгав и записать...
csioucfuo
15.08.2019 21:20
Написать программы к следующим : а) вводятся три числа. вывести на экран сумму з трех чисел б)человек делает в магазине покупки. определите сколько денег у него останется после покупки...
romka1014
15.08.2019 21:30
Перепишите программу на языке паскаль, исправив ошибки: program primer var a,b: integer; begin; realln(a,b); s=a+b; m: =a*b; d: =a: b; writeln(s); writeln(m); writeln(d) end...
mia73
06.08.2019 16:10
Определить размер (в байтах) цифрового аудиофайла,время звучания которого составляет 30 сек при частоте дискретизации 11.01 кгц и разрешении 16 бит...
Ястеб22
06.08.2019 16:10
Программа на pascal abc. сгенерировать случайным образом трехзначное число. напечатать его. вывести все цифры, составляющие это число, в порядке не убывания....
Популярные вопросы
Рассмотрите корневую систему растения пшеницы. Определите, какие виды корней хорошо...
3
Деление числа в заданном соотношенииВ течении 3 часов 7 насосов выкачали 882 ведра...
1
скольку будет 2+2 у меня Соч за 10 класс на этот вопрос не могу ответить а за...
2
1 Украшают тебя добродетели,До которых другим далеко.И — беру небеса во свидетелиУважаю...
2
В каком слове пишется одна Н? серебря...ыйбагря...ыйсви...ойсоломе...ыйреволюцио...ыйпле...ыймороже...ое...
3
Напишіть міні міркування про те як могло б продовжуватися оповідання події з Кумедія...
2
Заполните пропуски словами as … as, so … as. 1)The temperature today is ___ high...
3
Назвіть причини вимирання окремих видів ссавців. Які види ссавців знаходяться...
1
Скобка 7 / 6 - 3 / 4 скобка закрывается x 1 / 2 равно...
3
Відновить загальні у хмарці назви та вислови золота булка...
3
begin
readln(n);
while n>0 do
begin
x:=n mod 10;
if x>max then max:=x;
n:=n div 10;
end;
writeln('Максимальная цифра: ',max);
end.