begin Write('Введите трехзначное число: '); Readln(n); if (n < 100) or (n > 999) then Writeln('У Вас странное представление о трехзначных числах!') else begin d := n div 100; {старшая} n := n mod 100; m := n div 10; {средняя} n := n mod 10; {младшая} if (m > d) and (n > m) then Writeln('Цифры следуют в возрастающей последовательности') else if (m < d) and (n < m) then Writeln('Цифры следуют в убывающей последовательности') else Writeln('Цифры не образуют монотонную последовательность') end end.
Тестовое решение:
Введите трехзначное число: 159 Цифры следуют в возрастающей последовательности
Граф - множество вершин и ребер, соединяющих эти вершины. Он несет информацию об элементах системы и связи между ними. Элементы системы изображаются как вершины или узлы графа. Отношения между ними изображаются как ребра или дуги графа. Деревом называют ациклический (то есть между любыми вершинами есть только один путь), связный (то есть от любой вершины графа можно добраться в другую) граф. Корень дерева - это вершина с нулевой степенью захода (то есть в нее не ведут другие ребра). Для неориентированного графа это просто выбранная нами вершина. Ветви - это ребра дерева. Листья дерева - это вершины с нулевой степенью исхода (то есть из них не выходят ребра), т.е. не имеющих поддеревьев. Надеюсь объяснил доступно.
Символ-это набор команд состоящих из единиц и нулей,любое слово вводимое тобой или выведонное тебе состоит из этих последовательностей. Например символ I (Я) зашифрован так 0100 1001 <-- 8 этих битов образуют 1 символ,называемым байтом,поэтому любой текст,изображение,видео(там немного другая схема действует),все это всего лишь грандиозный набор команд,разговоры по телефону тоже кодируются из вибрации в набор импульсов и на обратном выходе опять преобразуются в нам всем привычные слова.Любые механизмы,и даже мы с Вами можем передавать информацию,в том числе Азбукой Морзе,даже несколько последовательно сформулированных щелчков пальцев несут в себе информацию,главное ее понять,расшифровать и преобразовать,в видео,аудио,текст,фотографию.
n, m, d: integer;
begin
Write('Введите трехзначное число: ');
Readln(n);
if (n < 100) or (n > 999) then
Writeln('У Вас странное представление о трехзначных числах!')
else begin
d := n div 100; {старшая}
n := n mod 100;
m := n div 10; {средняя}
n := n mod 10; {младшая}
if (m > d) and (n > m) then
Writeln('Цифры следуют в возрастающей последовательности')
else if (m < d) and (n < m) then
Writeln('Цифры следуют в убывающей последовательности')
else Writeln('Цифры не образуют монотонную последовательность')
end
end.
Тестовое решение:
Введите трехзначное число: 159
Цифры следуют в возрастающей последовательности