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

Выяснить ,является ли последовательность цифр числа при просмотре справа налево возрастающей

17.10.2013, 15:57. Показов 4189. Ответов 4
Метки нет (Все метки)

Дано натуральное число N,не превосходящее 1000000.Требуется выяснить ,является ли последовательность цифр данного числа при просмотре справа налево возрастающей (нестрого).Например,для числа 4331,ответ положительный,а для 4312- отрицательный.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2013, 15:57
Ответы с готовыми решениями:

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

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

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

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

4
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
17.10.2013, 16:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var n,a,b:longint;
    f:boolean;
begin
clrscr;
write('Введите натуральное число до 1000000 n=');
readln(n);
a:=n mod 10;
n:=n div 10;
f:=true;
while(n>0)and f do
 begin
  b:=n mod 10;
  if b<a then f:=false
  else n:=n div 10
 end;
if f then write('Цифры справа налево образуют неубывающую последовательность')
else write('Цифры справа налево не образуют неубывающую последовательность');
readln
end.
1
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
17.10.2013, 16:26 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  N, p1, p2: integer;
  
begin
  write(' N = ');
  readln(N);
  writeln;
  p1 := N mod 10;
  repeat
    N := N div 10;
    p2 := N mod 10;
    if p2 < p1 then 
    begin write(' No'); exit end;
    p1 := p2
  until N < 10;
  write(' Yes');
end.
1
0 / 0 / 0
Регистрация: 17.10.2013
Сообщений: 4
17.10.2013, 16:30  [ТС] 4
Большое спасибо
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
17.10.2013, 16:41 5
Я неправильно написал, один кусок забыл
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var n,a,b:longint;
    f:boolean;
begin
clrscr;
write('Введите натуральное число до 1000000 n=');
readln(n);
a:=n mod 10;
n:=n div 10;
f:=true;
while(n>0)and f do
 begin
  b:=n mod 10;
  if b<a then f:=false
  else
   begin
    n:=n div 10;
    a:=b
   end;
 end;
if f then write('Цифры справа налево образуют неубывающую последовательность')
else write('Цифры справа налево не образуют неубывающую последовательность');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2013, 16:41

Дано натуральное число.Установить,является ли последовательность его цифр при просмотре их справа налево упорядоченной
int a; bool flag; a = int.Parse(Console.ReadLine()); flag =...

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

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

Выяснить, является ли последовательность возрастающей, есть ли в ней одинаковые соседние числа
Вводится последовательность целых ненулевых чисел, признак окончания ввода — ввод 0. Количество...


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

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

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