Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 02.10.2018
Сообщений: 1

Определить, образуют ли цифры числа неубывающую последовательность

23.01.2019, 22:29. Показов 2825. Ответов 1
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Дано натуральное число n.
Определить образуют ли цифры числа неубывающую последовательность.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 23.01.2019, 22:29
Ответы с готовыми решениями:

Определить, образуют ли элементы массива неубывающую последовательность.
Определить, образуют ли элементы массива неубывающую последовательность. хелп

Определить, что цифры данного числа образуют возрас тающую последовательность
вводится натуральное число.произвольное. написать функция для проверки истинности высказывания *цифры данного числа образуют возрас ...

В массиве из 20 элементов числа образуют неубывающую последовательность. Найти количество различных чисел в массиве.
В массиве из 20 элементов числа образуют неубывающую последовательность. Найти количество различных чисел в массиве.

1
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
24.01.2019, 09:04
Найдено в Сети (С)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

var
  x, m, n: integer; 
  f: boolean;
 
begin
  readln(x); 
  f := true; 
  m := x mod 10;
  x := x div 10;
  while x <> 0 do 
  begin
    n := x mod 10; 
    x := x div 10; 
    if n > m then begin
      f := false; 
      break
    end; 
    m := n
  end; 
  writeln(f); 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 24.01.2019, 09:04
Помогаю со студенческими работами здесь

Проверить, образуют ли элементы введенного с клавиатуры массива неубывающую последовательность
Всем доброго времени суток Прошу помочь со следуйщими заданиями: 1. Написать программу, которая проверяет, образуют ли элементы...

Верно ли, что цифры числа образуют строго возрастающую последовательность
Составить программу с ветвлением, печатающее слово ‘ДА’, если указанное высказывание является истинным, и ‘НЕТ’ — в противном случае.Цифры...

Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность
найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность (например, 1234, 5789). Нужно...

Проверить истинность высказывания: "Цифры данного трехзначного числа образуют возрастающую или убывающую последовательность"
Проверить истинность высказывания: &quot;Цифры данного трехзначного числа образуют возрастающую или убывающую последовательность&quot;.

Проверить, что цифры числа образуют неубывающую последовательность
Пользователь вводит с клавиатуры положительное число, не превышающее диапазон типа longint. Проверить, что цифры этого числа образуют...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Функция установки текстового статуса в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru