С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.97/29: Рейтинг темы: голосов - 29, средняя оценка - 4.97
0 / 0 / 0
Регистрация: 02.02.2010
Сообщений: 12
1

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

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

Author24 — интернет-сервис помощи студентам
помогите сфункцией.....запарился.
найти все натуральные числа,не превосходящие заданного n,которые делятся на каждую из своих цифр.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.02.2010, 18:31
Ответы с готовыми решениями:

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

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

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

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

2
175 / 172 / 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
Retired
7727 / 2559 / 671
Регистрация: 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
02.02.2010, 18:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2010, 18:42
Помогаю со студенческими работами здесь

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru