0 / 0 / 0
Регистрация: 09.02.2012
Сообщений: 4
1

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

09.02.2012, 09:01. Показов 1733. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
3. На отрезке от 1 до n найти все натуральные числа, которые делятся на каждую из своих цифр.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.02.2012, 09:01
Ответы с готовыми решениями:

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

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

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

В заданном интервале найти все числа, которые делятся на каждую из своих чётных цифр
Составить программу, обеспечивающую в интервале от N1 до N2 (N1, N2 – натуральные числа) поиск и...

1
22 / 22 / 7
Регистрация: 21.04.2010
Сообщений: 66
09.02.2012, 14:03 2
Лучший ответ Сообщение было отмечено Annachip как решение

Решение

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 preo1(x:integer):integer;
var
st,st1:string;
j,s:integer;
begin
  Str(x, St);
  s:=length(st);
  
  For j:=1 to length(st) do
    begin
    st1:=copy(st,(Length(st)),1);
    delete(st,(Length(st)),1);
    if (StrToInt(st1)<>0) and ((x mod StrToInt(st1))=0) then
    s:=s-1;
     end;
  if s=0 then
    writeln(x);
  st:='';
  st1:='';
end;
 
begin
writeln('Введите конечное число');
readln(a);
for i:=1 to a do
  preo1(i);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2012, 14:03
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru