Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.84/25: Рейтинг темы: голосов - 25, средняя оценка - 4.84
0 / 0 / 0
Регистрация: 23.09.2011
Сообщений: 15
1

Получить все числа, не превышающие заданного числа n, которые делятся без остатка на все свои цифры

03.10.2011, 10:45. Показов 4878. Ответов 1
Метки нет (Все метки)

получить все числа не превышающие заданного числа n, которые делятся без остатка на все свои цифры.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2011, 10:45
Ответы с готовыми решениями:

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

Определить все числа из заданного промежутка, которые делятся на 7 без остатка
Даны числа А и В. Определить все числа из этого промежутка, которые делятся на 7 без остатка. Не...

Вывести все натуральные числа и записать числа которые делятся на 17 без остатка
Задание, вывести все натуральные числа и записать числа которые делятся на 17 без остатка, как...

Вывести все целые числа, на которые оба введенных числа делятся без остатка
Пользователь вводит два целых числа. Необходимо вывести все целые числа, на которые оба введенных...

1
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
03.10.2011, 12:09 2
Лучший ответ Сообщение было отмечено амброзия как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var n,i,m:longint;
    f:boolean;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do
 begin
  m:=i;
  f:=true;
  while(m>0)and f do
  {если цифра 0, или на нее не делится, дальше не проверяем}
  if(m mod 10=0)or(i mod(m mod 10)<>0)then f:=false
  else m:=m div 10;{иначе продолжаем сокращать число в 10 раз}
  if f then write(i,' ');
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.10.2011, 12:09

Вывести все целые числа, на которые оба введенных числа делятся без остатка
Пользователь вводит два целых числа. Необходимо вывести все целые числа, на которые оба введенных...

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

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

Определить все числа, меньшие N, которые делятся без остатка на M
Даны натуральные числа N и M (M&lt;N). Используя только элементарные арифметические операции (+, -, *,...


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

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

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