Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
FishWithMilk
0 / 0 / 0
Регистрация: 09.10.2015
Сообщений: 15
1

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

08.11.2015, 18:23. Просмотров 714. Ответов 1
Метки нет (Все метки)

Выручайте,не могу написать программу на паскале :

Дано натуральное число n. Проверить, упорядочены ли цифры по убыванию.

Нельзя использовать массивы и функции.Все через циклы.Буду благодарен
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.11.2015, 18:23
Ответы с готовыми решениями:

Проверить, упорядочены ли координаты вектора по убыванию
Дан вектор х=(х1, х2, ...,хn)

Упорядочены ли цифры числа по возрастанию
Дано натуральное число. Установить, является ли последовательность его цифр...

Цифры трехзначного числа упорядочены строго по возрастанию
Решите мне пожалуйста эти задачи!) 1. Составьте программу вычисления...

Проверить являются ли цифры числа степенями двойки, если да, то возвести такие цифры в квадрат и сложить
Необходимо написать программу с циклом или циклами, которая проверяет являются...

Дано натуральное число. Напечатать по убыванию цифры, не входящие в запись этого числа.
Дано натуральное число. Напечатать по убыванию цифры, не входящие в запись...

1
Cyborg Drone
Модератор
5296 / 3175 / 2442
Регистрация: 17.08.2012
Сообщений: 10,189
09.11.2015, 09:06 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var n, d1, d2: integer;
    f: boolean;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  d1 := -1;
  repeat
    d2 := n mod 10;
    f := d2 <= d1;
    d1 := d2;
    n := n div 10
  until f or (n = 0);
  write('Цифры числа ');
  if f then write('не ');
  write('упорядочены по убыванию.');
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.11.2015, 09:06

Проверить, есть ли в записи числа m цифры
Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры,...

Проверить, все ли цифры введенного числа различны
Проверить, все ли цифры введенного числа различны. 1)цикл с предусловием...

Проверить, будут ли все цифры числа различными
Дано натуральное число n. Проверить, будут ли все цифры числа различными. ...


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

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

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