Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
KASH_PC
0 / 0 / 0
Регистрация: 19.09.2017
Сообщений: 8
#1

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

25.01.2018, 12:12. Просмотров 219. Ответов 1
Метки нет (Все метки)

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

Может кому-то пригодится

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program Kontrol_2;
var
a,b,c,d,N,i,k:integer;
begin
i:=1000;
 
N:=9999;
while i<=N do
begin
 
 
a:=i div 1000;
b:=i div 100 mod 10;
c:=i mod 100 div 10;
d:=i mod 100 mod 10;
 
 
 
if  
       (a=b) or (a=c) or (a=d) or (b=c) or (b=d) or (c=d)
        then writeln ('Числа в которых есть хотя бы 2 одинаковые цифры ', i);
      
inc(i);
end;
 
readln();
 
k:=1000;
N:=9999;
 
while k<=N do
begin
 
a:=k div 1000;
b:=k div 100 mod 10;
c:=k mod 100 div 10;
d:=k mod 100 mod 10;
 
if
      ( (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d))
        then writeln ('Числа в которых все цифры разные ', k);
 
inc(k);
end;
 
readln();
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2018, 12:12
Ответы с готовыми решениями:

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

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

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

найти все трехзначные числа, у которых две цифры одинаковы через цикл while в Паскале пожалуйста
найти все трехзначные числа, у которых две цифры одинаковы через цикл while в...

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

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3811 / 2492 / 2055
Регистрация: 22.11.2013
Сообщений: 6,930
27.01.2018, 15:09 #2
Много проще
Pascal
1
2
3
4
5
6
7
8
9
  WriteLn('Числа, в которых есть хотя бы 2 одинаковые цифры:');
  for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do for d:=0 to 9 do
    if (a=b) or (a=c) or (a=d) or (b=c) or (b=d) or (c=d) then
      Write('':4,a,b,c,d);
  WriteLn;
  WriteLn('Числа, в которых все цифры разные:');
  for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do for d:=0 to 9 do
    if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
      Write('':4,a,b,c,d);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2018, 15:09

Найти все четырехзначные числа, у которых равны крайние цифры
Очень нужна программа! Найти все четырехзначные числа, у которых равны крайние...

Как вывести все четырёхзначные числа у которых все цифры разные
программа которая выводит все четырех значение числа у которых все цифры разные...

Найти все четырёхзначные числа,в которых есть две одинаковые цифры
Найти все четырёхзначные числа,вкоторых есть две одинаковые цифры


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

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

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