tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится
Склавиатуры вводится натуральное число n. найдите и выведите самую большую цифру этого числа.
mironmashstem
2 26.06.2019 10:20
3
Ответы
ELOGE
21.07.2020 09:31
Var
n,m:integer;
begin
read(n);
m:=0;
while n<>0 do
begin
if m<(n mod 10) then m:=n mod 10;
n:=n div 10;
end;
writeln(m);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
antonkovalenko1
15.07.2019 02:00
Как какие животные хищные серая куропатка дрофа кобылка степная гадюка...
mops123321
23.09.2019 02:40
Дан массив из 10 целых чисел в диапазоне [-10000,10000]. перепишите в другой массив только нечетные числа и отсортируйте их по возрастанию. гарантируется, что нечетные...
nebeca
01.10.2019 09:20
Напишите программу в pascal сергей страдает ожирением в процессе голодании он каждую неделю скидывает 3% от предыдущего веса изначально он весил 150 кг в машину...
ProgramAkkaunt
01.10.2019 09:20
Саша, максим, таня, лёша и костя переводили числа в двоичную систему на скорость. если бы максим был в середине списка участников, то перед ним был бы саша, а следом...
valerysidochenozpzmu
22.05.2020 06:51
Мини-сочинение на тему компьютеры будущего...
elizavetamilas
18.11.2019 00:56
100 ! план до першої частини джури козака швайки...
ВикторияЛинкольн
18.11.2019 00:56
Расставьте коэффиценты в схемах реакций...
Алена11д1
18.11.2019 00:56
Скиньте признаки подобия треугольников...
777angel777likoy8mjs
18.11.2019 00:56
Дайте краткий ответ на вопросы на основании информации, изложенной выше. ответ оформите в виде таблицы. 1. какая из двух избирательных система давала диспропорционально...
лох248
18.11.2019 00:55
Яу подруги на ночёвке. и так получилось что дверь в комноте в которой мы спим закрылась. не можем выбраться....
Популярные вопросы
1.развёрнутый письменный ответ на вопрос чему меня учит повесть...
1
(-2xV7yV3)V5 (V обозначает,то что число после него является...
3
ТАПСЫРМАНЫҢ МӘТІНІ Дара және күрделі мүшелерді соларға сай келетін...
1
Скільки коренів має рівняння x4,5=4,5?...
3
Твір до теми краса і мудрість жанру усної народної творчості...
2
Фонетична транскрипція слова розчаруватися...
3
Прислів я зі словом ллється...
3
Выберете, какие из перечисленных веществ реагируют с соляной...
1
Какой минимальный объем должна иметь подводная часть надувной...
2
ответить на вопросы: What newspapers are popular in Russia?...
1
n,m:integer;
begin
read(n);
m:=0;
while n<>0 do
begin
if m<(n mod 10) then m:=n mod 10;
n:=n div 10;
end;
writeln(m);
end.