Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/26: Рейтинг темы: голосов - 26, средняя оценка - 4.62
alexandr_111
0 / 0 / 0
Регистрация: 05.12.2010
Сообщений: 1
#1

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

08.12.2010, 18:33. Просмотров 4682. Ответов 2
Метки нет (Все метки)

Найти все натуральные числа,не превосходящие n и делящиеся на каждую из своих цифр(в десятичной системе счисления).
Люди пожалуйста кто знает как это делать напишите,я даже представления не имею(((
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2010, 18:33
Ответы с готовыми решениями:

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

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

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

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

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

2
кот Бегемот
Платежеспособный зверь
8449 / 3900 / 1515
Регистрация: 28.10.2009
Сообщений: 10,101
08.12.2010, 18:50 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Цитата Сообщение от alexandr_111 Посмотреть сообщение
Найти все натуральные числа,не превосходящие n и делящиеся на каждую из своих цифр(в десятичной системе счисления).
Люди пожалуйста кто знает как это делать напишите,я даже представления не имею(((
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do
begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
readln;
end.
2
MeDVeDb
1 / 1 / 1
Регистрация: 23.04.2012
Сообщений: 13
05.05.2012, 23:19 #3
А может кто нибудь данную программу решить через функцию или же через процедуру?ребят помогите пожалуйста
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2012, 23:19

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

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

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


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

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

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