Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 24, средняя оценка - 4.63
alexandr_111
0 / 0 / 0
Регистрация: 05.12.2010
Сообщений: 1
#1

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

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

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

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

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

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

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

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

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

2
кот Бегемот
Платежеспособный зверь
8444 / 3883 / 742
Регистрация: 28.10.2009
Сообщений: 10,057
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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число. - Pascal
Уславие Определить все натуральные числа m, не превосходящие числа N. Сумма всех цифр числа m-простое число.

Найти все натуральные числа, не превосходящие заданного m - Pascal
Пожалуйста, очень срочно надо написать программу на языке Pascal (Turbo или ABC). Найти все натуральные числа, не превосходящие...


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

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

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