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

Подсчет десятизначных чисел, в которых не повторяются цифры - Pascal ABC

06.01.2011, 03:25. Просмотров 992. Ответов 0
Метки нет (Все метки)

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

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
program chisla;
var x, i, k, j, b, sum: integer;
    a: array [1..10] of integer;
begin
sum:=0;
x:=1000000000;
while (x<=9999999999) do {проверяем все десятизначные числа}
    begin
    b:=x;
    for i:=1 to 10 do {представляем число в виде массива}
            begin
            a[i]:=b mod 10;
            b:=b div 10;
            end;
 
    k:=0;
    for j:=1 to 10 do {ищем совпадения}
            begin
            for i:=1 to 10 do
            if (a[j]=a[i])and(j<>i) then k:=k+1;
            end;
 
    if (k=0) then {при отсутствии совпадения увеличиваем сумму на 1}
               begin
               writeln(x);
               sum:=sum+1;
               end;
    
    x:=x+1;
end;
writeln('sum = ',sum);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2011, 03:25
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчет десятизначных чисел, в которых не повторяются цифры (Pascal ABC):

Вводится число с клавиатуры. Вывести на экран все цифры, которые повторяются более одного раза, при выводе цифры не должны повторятся
Вводится число с клавиатуры. Вывести на экран все цифры, которые повторяются...

генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь те из них, в которых совпадают первая и последняя цифры
генератор случайных чисел выдает n четырехзначных чисел. вывести на экран лишь...

Подсчет количества двузначных чисел, сумма квадратов цифр которых делится на 13
Составить программу на языке TurboPascal для подсчета количества двузначных...

подсчета чисел в записях которых нет цифры 8
Надо решить задачку за выходные..помогите пожалуйста Дано N целых чисел...

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

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

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.01.2011, 03:25
Привет! Вот еще темы с решениями:

Выбрать из четырехзначных чисел те, запись которых содержит 3 одинаковых цифры
Задача: Даны целые четырехзначные числа n. Выбрать из них те запись которых...

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

Подсчет количества натуральных чисел, меньших М, квадрат суммы цифр которых равен Х. Проверьте на правильность
ЗАДАЧА: Составьте программу подсчета числа всех натуральных чисел, меньших М,...

Количество простых чисел, на промежутке от N1 до N2, у которых цифры упорядочены строго по возрастанию.
Входные данные: два целых числа N1 и N2 (10&lt;N1&lt; N2, N2&lt;1000000000). Числа N1и...


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

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

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