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

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

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

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

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

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

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

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

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

2
pikusfikus
173 / 170 / 40
Регистрация: 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
7710 / 2543 / 670
Регистрация: 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 (10<N<10000), которые делятся на все свои цифры.
как решить следующую задачу? Задача Д1. Найти все числа, не превосходящие...

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

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


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

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

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