С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Лена73
0 / 0 / 0
Регистрация: 29.04.2015
Сообщений: 2
1

Найти все трёхзначные числа, удовлетворяющие каждому из заданных условий

29.04.2015, 15:46. Просмотров 655. Ответов 2
Метки нет (Все метки)

Найти все трёхзначные числа, удовлетворяющие каждому из условий:
любые две цифры различны;
число равно среднему арифметическому всех трёхзначных чисел (включая данное), имеющих тот же цифровой состав.буду очень благодарна.

Как я понимаю, здесь не один цикл..
если не сложно, напишите пожалуйста программу
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2015, 15:46
Ответы с готовыми решениями:

Найти все трёхзначные натуральные числа...
Найти все трёхзначные натуральные числа,не превосходящие заданного m и...

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

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

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

найти все трёхзначные числа, такие у которых сумма цифр равна A, а само число делиться на B.
Помогите пожалуйста решить задачку :-) найти все трёхзначные числа, такие у...

2
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
29.04.2015, 16:59 2
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
type
    TDig = 0..9;
    TNumb = 100..999;
 
function CheckForDiff(const a, b, c: TDig): Boolean;
begin
    CheckForDiff := ((a <> b) Or (a <> c) Or (b <> c));
end;
 
function Avr(const a, b, c: TDig; const x: TNumb): Boolean;
var
    i: TNumb;
    sum, count: Word;
    Result: Boolean;
begin
    sum := 0; count := 0;
    for i := Low(TNumb) to High(TNumb) do
    begin
        if ((100 * a + 10 * b + c = i) Or (100 * a + 10 * c + b = i) Or (100 * b + 10 * a + c = i) Or (100 * b + 10 * c + a = i) Or (100 * c + 10 * a + b = i) Or (100 * c + 10 * b + a = i))
        then
        begin
            Inc(sum, i);
            Inc(count);
        end;
    end;
    Result := (sum mod count = 0);
    if (Result)
    then
        Result := (sum div count = x);
    Avr := Result;
end;
 
var
    i: TNumb;
    a, b, c: TDig;
begin
    for i := Low(TNumb) to High(TNumb) do
    begin
        a := i div 100;
        b := i div 10 mod 10;
        c := i mod 10;
        if (CheckForDiff(a, b, c) And Avr(a, b, c, i))
        then
            Write(i:4);
    end;
end.

Не по теме:

мне определённо скучно сегодня...

1
Лена73
0 / 0 / 0
Регистрация: 29.04.2015
Сообщений: 2
04.05.2015, 09:13  [ТС] 3
А можно попроще?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2015, 09:13

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

Даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам: a<=p<=b
Даны натуральные числа a,b(a&lt;b). Получить все простые числа p, удовлетворяющие...

Найдите все двузначные числа,удовлетворяющие следующим условиям
Помогите пож. 1. Найдите все двузначные числа,удовлетворяющие следующим...


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

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

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