0 / 0 / 0
Регистрация: 13.10.2017
Сообщений: 176

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

17.12.2017, 08:32. Показов 13319. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как вывести числа по порядку? Условие в теме
Как сделать, чтобы при выводе числа выводились по порядку? Если ввожу число, например, 22 - выводит 1 11 12 15 2 22 3 4 5 6 7 8 9
Задание: найти все натуральные числа,не превосходящие n и делящиеся на каждую из своих цифр.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var 
i,j, t,N:integer; 
begin 
writeln('Введите значение N='); 
readln(N); 
for i:=1 to 9 do 
begin 
t:=i; 
if t<=N then 
begin 
if (t mod i=0) then 
writeln(t); 
for j:=1 to 9 do 
begin 
t:=(i*10+j); 
if t <= N then 
if(t mod i=0) and (t mod j=0) then 
writeln(t); 
end; 
end; 
end; 
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.12.2017, 08:32
Ответы с готовыми решениями:

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

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

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

1
 Аватар для FreudeMan
108 / 94 / 45
Регистрация: 12.09.2017
Сообщений: 1,127
17.12.2017, 12:31
как вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var 
i,j,k,t,N:integer; 
begin 
write('Введите значение N='); 
readln(N);
for k:=1 to 9 do
begin
  Writeln(k);
end;
for i:=1 to 9 do 
begin 
t:=i; 
if t<=N then 
begin 
for j:=1 to 9 do 
begin 
t:=(i*10+j); 
if t <= N then 
if(t mod i=0) and (t mod j=0) then 
writeln(t);
end;
end;
end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.12.2017, 12:31
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Мастер-класс по микросервисам на Node.js
Reangularity 21.06.2025
Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .
Управление Arduino из WPF приложения
Wired 21.06.2025
Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .
Звёздная пыль
kumehtar 20.06.2025
Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .
Создание нейросети с PyTorch
AI_Generated 19.06.2025
Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .
JWT аутентификация в ASP.NET Core
UnmanagedCoder 18.06.2025
Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С#
aaLeXAA 18.06.2025
Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .
50 самых полезных примеров кода Python для частых задач
py-thonny 17.06.2025
Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД
stackOverflow 17.06.2025
Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .
Angular: Вопросы и ответы на собеседовании
Reangularity 15.06.2025
Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC
stackOverflow 15.06.2025
Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru