0 / 0 / 0
Регистрация: 02.12.2015
Сообщений: 6
1

Является ли последовательность цифр числа при просмотре их справа налево упорядоченной по возрастанию

16.12.2015, 08:27. Показов 2496. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Используя цикл с постусловием repeat решить задачу:
Дано натуральное число. Установить, является ли последовательность его цифр при просмотре их справа налево упорядоченной по возрастанию.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2015, 08:27
Ответы с готовыми решениями:

Установить, является ли последновательность при просмотре слева направо упорядоченной
Здравствуйте, форумчане.Есть одно условие задачи и есть решение. Вот условие:дано натуральное...

Выяснить ,является ли последовательность цифр числа при просмотре справа налево возрастающей
Дано натуральное число N,не превосходящее 1000000.Требуется выяснить ,является ли...

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

Последовательность переменных A,B,C является упорядоченной по возрастанию при выполнении условия:
1. Последовательность переменных A,B,C является упорядоченной по возрастанию при выполнении...

2
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.12.2015, 11:41 2
Лучший ответ Сообщение было отмечено annenkovme как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var n:integer;
    c:byte;
    f:boolean;
begin
write('Введите натуральное число n=');
readln(n);
c:=n mod 10;
n:=n div 10;
f:=true;
while (n>0)and f do
 begin
   if n mod 10<=c then f:=false
   else
    begin
     c:=n mod 10;
     n:=n div 10;
    end;
  end;
 if f then write('Цифры справа налево по возрастанию')
 else write('Цифры справа налево не по возрастанию')
 end.
0
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
16.12.2015, 11:46 3
Цитата Сообщение от annenkovme Посмотреть сообщение
Используя цикл с постусловием repeat
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var n:longint;f:boolean;ni:byte;
begin
 write('n = ');readln(n);
 f:=true;ni:=n mod 10; n:=n div 10;
 if n>0 then
         begin
          repeat
           if n mod 10<=ni{<} then f:=false;
           ni:=n mod 10;
           n:=n div 10;
          until (not f)or(n=0)
         end;
 writeln(f)
end.
0
16.12.2015, 11:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2015, 11:46
Помогаю со студенческими работами здесь

Является ли последовательность упорядоченной по возрастанию?
дана последовательность вещественных чисел a1,a2,...,a20.определить,является ли последователность...

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru