Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 11.01.2021
Сообщений: 5
1

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

11.01.2021, 20:06. Показов 1129. Ответов 6

Найти все натуральные четырехзначные числа, цифры в которых образуют строго возрастающую последовательность (1234), (2345),(3456) и тп
использую подпрограмму
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2021, 20:06
Ответы с готовыми решениями:

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

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

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

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

__________________
6
Модератор
63332 / 47044 / 32427
Регистрация: 18.05.2008
Сообщений: 114,031
11.01.2021, 20:39 2
Лучший ответ Сообщение было отмечено arteezybabyrage как решение

Решение

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
25
26
27
28
function vozr(n:integer):boolean;
var a,b:integer;
begin
a:=n mod 10;
n:=n div 10;
result:=true;
while(n>0)and result do
 begin
  b:=n mod 10;
  if b>=a then result:=false
  else
   begin
    a:=b;
    n:=n div 10;
   end;
 end;
end;
var i,k:integer;
begin
k:=0;
for i:=1234 to 6789 do
if vozr(i) then
 begin
  inc(k);
  write(i:5);
  if k mod 15=0 then writeln;
 end;
end.
1
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,262
11.01.2021, 21:42 3
Можно чуть покороче:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function vozr(n: integer): boolean;
var
  i, d: integer;
  t: boolean;
begin
  d := 10;
  t := true;
  for i := 1 to 4 do
    begin
      t := t and (d > n mod 10);
      d := n mod 10;
      n := n div 10
    end;
  vozr := t
end;
 
var
  k: integer;
begin
  for k := 1234 to 6789 do
    if vozr(k) then write(k:5);
  readln
end.
Добавлено через 11 минут
Или так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function vozr(n: integer): boolean;
var
  i: integer;
  t: boolean;
begin
  t := true;
  for i := 1 to 3 do
    begin
      t := t and (n mod 10 > n mod 100 div 10);
      n := n div 10
    end;
  vozr := t
end;
 
var
  k: integer;
begin
  for k := 1234 to 6789 do
    if vozr(k) then write(k:5);
  readln
end.
1
Платежеспособный зверь
8737 / 4159 / 1604
Регистрация: 28.10.2009
Сообщений: 11,263
11.01.2021, 22:49 4
А можно и совсем коротко, и без всяких функций. Вот так, по-колхозному:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
a,b,c,d,i:integer;
begin
for i:=1234 to 6789 do
begin
a:=i mod 10;
b:=i div 10 mod 10;
c:= i div 100 mod 10;
d:= i div 1000;
if (a>b) and (b>c) and (c>d) then write(i:5);
end;
end.
0
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,262
11.01.2021, 23:35 5
Без подпрограмм и по-колхозному можно ещё короче, и за минимально возможное количество итераций (126):
Pascal
1
2
3
4
5
6
7
8
9
var
  i, j, k, m: integer;
begin
  for i := 1 to 6 do
    for j := i + 1 to 7 do
      for k := j + 1 to 8 do
        for m := k + 1 to 9 do
          write(10 * (10 * (10 * i + j) + k) + m :5)
end.
0
Платежеспособный зверь
8737 / 4159 / 1604
Регистрация: 28.10.2009
Сообщений: 11,263
11.01.2021, 23:38 6
И так можно. А зачем тогда огороды городить с функциями?
0
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,262
11.01.2021, 23:54 7
Незачем. Но по заданию нужно с подпрограммой.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2021, 23:54

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

Найти все натуральные n-значные числа,цифры в которых образуют строго возрастающую последовательность(пример,1234,5789)
Помогите пожалуйста!!!!!!!!Найти все натуральные n-значные числа,цифры в которых образуют строго...

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

Верно ли, что цифры числа образуют строго возрастающую последовательность
Составить программу с ветвлением, печатающее слово ‘ДА’, если указанное высказывание является...


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

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

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