|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.06.2016, 19:41 | #1 |
Новичок
Джуниор
Регистрация: 14.06.2016
Сообщений: 1
|
Найти количество чисел, цифры в которых образуют убывающую последовательность
Срочно нужна помощь с программой на паскале! Нужно в заданной последовательности найти количество чисел, которые обладают заданным свойством, а именно: цифры в числе образуют убывающую последовательность. Числа вводятся с клавиатуры, их количество заранее неизвестно, количество цифр в каждом числе тоже неизвестно. Программа должна выглядеть примерно так, но с другим условием:
function Q(x: integer): boolean; var c, c1, x1: integer; begin Q := false; while x > 10 do begin c := x mod 10; x1 := x div 10; while x1 > 0 do begin c1 := x1 mod 10; if c = c1 then Q := true; x1 := x1 div 10; end; x := x div 10; end; end; var n, k: integer; begin repeat readln(n); if Q(n) then inc(k); until n = 0; if k = 0 then writeln('таких чисел нет') else writeln('k=', k); end. Помогите, пожалуйста, написать такую функцию, которая проверяла бы, образуют ли цифры в числе убывающую последовательность! Не для себя прошу, меня попросили помочь с программой, но у меня никак не получается! Помогите, пожалуйста, кто может! Заранее спасибо!!! |
15.06.2016, 00:02 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
попробуйте такую функцию:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти номера строк,элементы которых образуют монотонную последовательность | Adam77 | Помощь студентам | 0 | 12.03.2016 21:20 |
Дан двумерный массив нужно найти номера строк, элементы которых образуют убывающую с++ | yurda | Помощь студентам | 0 | 24.05.2015 18:38 |
Программирование в С++(Задана матрица целых чисел.Найти номера строк,элементы которых образуют монотонную последовательность) | Disite | Помощь студентам | 5 | 25.03.2014 20:33 |
Задана последовательность чисел в формате:сначала количество цифр в числе, потом - цифры числа. Подсчитать количество. | Arn1 | Помощь студентам | 4 | 03.10.2011 20:03 |