Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
1

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

16.02.2010, 00:38. Показов 3656. Ответов 12
Метки нет (Все метки)

хелп!
Найти все трехзначные числа, которые делятся на каждую из цифр в их записи!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.02.2010, 00:38
Ответы с готовыми решениями:

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

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

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

Найти все такие М-значные числа, которые делятся на каждую из цифр в их записи
Найти все такие М-значные числа (М=2,3...), которые делятся на каждую из цифр в их записи. ...

12
Retired
7723 / 2555 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
16.02.2010, 01:05 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
function F(N: integer): boolean;
var
  temp: integer;
begin
  temp := N;
  while temp <> 0 do
  begin
    if (temp mod 10 = 0) or (N mod (temp mod 10) <> 0) then
    begin
      F := false;
      exit
    end;
    temp := temp div 10
  end;
  F := true
end;
var
  i: integer;
begin
  for i := 100 to 999 do
    if F(i) then
      Write(i,' ');
  ReadLn
end.
3
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
16.02.2010, 02:19  [ТС] 3
спасибо,а если нада вводить число самим,+ что бы ввод числа был до 10 разрядов,а не 3?
0
Платежеспособный зверь
8747 / 4180 / 1606
Регистрация: 28.10.2009
Сообщений: 11,321
16.02.2010, 02:23 4
тогда тип будет longint и другие границы перебора в for
а если число вводить самому, тогда причём здесь условие все числа
0
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
16.02.2010, 11:00  [ТС] 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
25
26
function F(N: integer): boolean;
var
  temp: integer;
  begin
    temp := N;
      while temp <> 0 do
        begin
            if (temp mod 10 = 0) or (N mod (temp mod 10) <> 0) then
                begin
                      F := false;
                            exit
                                end;
                                    temp := temp div 10
                                      end;
                                        F := true
                                        end;
                                        var
                                          d,i: longint;
                                          begin
                                          writeln('‚ўҐ¤ЁвҐ зЁб«®');
                                          readln(d);
                                            for i := 100 to d do
                                                if F(i) then
                                                      Write(i,' ');
                                                        ReadLn
                                                        end.
Вопрос я сча например, ввожу 4 значное число а она кидает его в прогу, но мне нада тока трёхзначные?? как это доделать?
0
Платежеспособный зверь
8747 / 4180 / 1606
Регистрация: 28.10.2009
Сообщений: 11,321
16.02.2010, 11:53 6
сам-то понял, что сказал: вводишь 4-значное число, а найти надо 3-значные, где смысл?
1
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
16.02.2010, 12:02  [ТС] 7
я ввожу например число 4444 а мне выводит и четырхзначные числа там 2222 и тому подобные а мне нада тока трёхзначные!
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
16.02.2010, 12:08 8
sema, Заставь дурака Богу молиться-лоб расшибет. Зачем ты вводишь числа, если по условию нужно НАЙТИ все трехзначные числа?
А если уж приспичило, пиши так
Pascal
1
2
3
4
repeat
write('Введите трехзначноe число');
readln(n);
until(n>99)and(n<1000);
1
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
16.02.2010, 12:28  [ТС] 9
Puporev,))) давайте так, вводиться любое число(до 10 цифр), и в нём находим числа трехзначные,которые делятся на каждую из цифр в их записи
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
16.02.2010, 13:23 10
Цитата Сообщение от sema Посмотреть сообщение
вводиться любое число(до 10 цифр), и в нём находим числа трехзначные
Это типа в числе 123456789 найти трехзначное число?
1
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
16.02.2010, 13:43  [ТС] 11
Puporev, да

Добавлено через 24 секунды
трёхзначные числа найти в твоём числе!
0
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
16.02.2010, 13:56 12
sema, С головой-то дружишь? Как это в числе искать число, это уж тогда будет формирование трехзначных чисел из цифр данного числа, так это совсем другая задача, на комбинаторику.
1
3 / 3 / 3
Регистрация: 14.10.2009
Сообщений: 31
16.02.2010, 13:59  [ТС] 13
Puporev, Хотя да, не подумав написал)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2010, 13:59

Вывести все трехзначные числа которые делятся без остатка на каждую из своих цифр
вывести все трехзначные числа которые делятся без остатка на каждую из своих цифр

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

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

На отрезке найти все натуральные числа, которые делятся на каждую из своих цифр
3. На отрезке от 1 до n найти все натуральные числа, которые делятся на каждую из своих цифр.


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

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

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