Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Digital_bro
0 / 0 / 0
Регистрация: 24.10.2017
Сообщений: 5
#1

Упорядоченные числа - Pascal ABC

24.10.2017, 00:11. Просмотров 137. Ответов 1
Метки нет (Все метки)

Натуральное число назовем упорядоченным если его цифры оказываются упорядоченными по неубыванию при просмотре разрядов в порядке от старших к младшим. Таковыми например являются числа 111,123,15,1123.
Нужно подсчитать кол-во упорядоченных чисел в диапазоне [10,N] где N-заданное натуральное число.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2017, 00:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Упорядоченные числа (Pascal ABC):

Вывести на экран все отрицательные числа, упорядоченные по возрастанию - Pascal ABC
пожалуйста решите 2 задачи, очень срочно надо!!!!!!!!!!!! 1. дан одномерный массив a1,a2,...,an. упорядочить данный массив по НЕ...

Вывести на экран все числа из файла, упорядоченные по возрастанию - Pascal ABC
В текстовом редакторе создать файл из целых чисел, разделённых пробелами. В программе вводится имя созданного файла. Вывести на экран все...

Как вывести упорядоченные строки в массив? - Pascal ABC
Доброго времени суток. Как можно вывести упорядоченные строки( по возрастанию или убыванию) в массиве размером 5х10?

Распечатать записи с заданным годом издания, упорядоченные по алфавиту - Pascal ABC
Дан файл KAT, содержащий сведения о книгах: 1) фамилия автора 2) название 3) год издания 4) цена книги а) распечатать записи с...

Вывести все тройки элементов массива, упорядоченные строго по возрастанию - Pascal ABC
составьте программу, которая заполняет массив а случайными числами в диапазоне от 1 до 20 и выводит все тройки элементов, упорядоченные...

Для произвольного текста вывести на печать слова, упорядоченные по алфавиту - Pascal ABC
ТЕМА: Обработка данных литерного типа. Необходимо написать 2 программы: 1) Для произвольного текста вывести на печать слова,...

1
кот Бегемот
Платежеспособный зверь
8444 / 3883 / 742
Регистрация: 28.10.2009
Сообщений: 10,057
24.10.2017, 00:47 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
a,n,i,k,f,t:integer;
begin
readln(n);
k:=0;
for i:=10 to n do
begin
a:=i;
t:=a mod 10;
f:=0;
while a>0 do
begin
a:=a div 10;
if a mod 10>t then f:=1;
t:=a mod 10;
end;
if f=0  then inc(k);
end;
writeln(k);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2017, 00:47
Привет! Вот еще темы с ответами:

Дан файл целых чисел f. Определите, упорядоченные числа за ростом в файле f или нет? - Pascal
Нужно написать программы для лаболаторной. Помогите если не трудно! 1) Дан файл целых чисел f. Определите, упорядоченные числа за...

Выяснить, упорядоченные элементы массива по возрастанию - Pascal
Выяснить, упорядоченные элементы массива по возрастанию.

Переписать в файл G компоненты файла F, упорядоченные по убыванию - Pascal
Задан файл F, все компоненты которого – целые числа. Переписать в файл G компоненты файла F, упорядоченные по убыванию. G – текстовый...

Распечатать записи о книгах с заданным годом издания, упорядоченные по алфавиту - Pascal
Дан файл KAT, содержащий сведения о книгах: 1) фамилия автора 2) название 3) год издания 4) цена книги Задание: а) распечатать...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru