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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.93
fredperry1661
0 / 0 / 0
Регистрация: 02.02.2010
Сообщений: 12
#1

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

02.02.2010, 18:31. Просмотров 2319. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

Найти все числа, не превосходящие заданного N (10<N<10000), которые делятся на все свои цифры. - Pascal
как решить следующую задачу? Задача Д1. Найти все числа, не превосходящие заданного N (10&lt;N&lt;10000), которые делятся на все свои...

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

2
pikusfikus
173 / 170 / 11
Регистрация: 14.11.2009
Сообщений: 507
02.02.2010, 18:36 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function check (n:integer):boolean;
var
x:integer;
begin
x:=n;
check:=true;
while x<>0 do begin
if ((x mod 10)=0) or (n mod (x mod 10)<>0) then
check:=false;
x:=x div 10;
end;
end;
 
 
var
n,i:integer;
begin
write('n=');
readln(n);
for i:=1 to n do
if check(i) then writeln(i);
end.
3
Inadequate
Retired
7708 / 2541 / 184
Регистрация: 17.10.2009
Сообщений: 5,100
02.02.2010, 18:42 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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;
3
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.02.2010, 18:42
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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