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

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

25.10.2014, 20:28. Показов 1854. Ответов 1
Метки нет (Все метки)

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

Я пыталась, но не работает

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
25
26
27
28
29
30
31
program dobra_cisla;
const max=100000;
var A:array [1..max] of integer;
    n,i,j,m,k,pocet,y,r,z,x:integer;
begin
  read(n); j:=1;
  Y := 0;  x:=0;
  for i:=1 to n do
  begin
  if i<10 then pocet:=pocet+1;
  if (i>10)and (i<=12) then pocet:=pocet+1
  else
   begin
   z:=i; j:=1;
    repeat
     Y := z mod 10;
     X := i div 10;
     z:=x;
     A[j]:=y;
     inc(j);
    until a[j-1]=z;
   m:=j-1;
   r:=0;
   For k:=1 to m do
   if (A[k]<>0)and(i mod A[k]= 0) then r:=r+1
   else r:= r - k;
   if r>=2 then pocet:=pocet+1;
   end;
end;
  writeln(pocet);
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.10.2014, 20:28
Ответы с готовыми решениями:

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

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

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

1
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
26.10.2014, 00:30
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.10.2014, 00:30
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
API на базе FastAPI с Python за пару минут
AI_Generated 07.07.2025
FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
Основы WebGL. Раскрашивание вершин с помощью VBO
8Observer8 05.07.2025
На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:
Мониторинг микросервисов с OpenTelemetry в Kubernetes
Mr. Docker 04.07.2025
Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .
Проблемы с Kotlin и Wasm при создании игры
GameUnited 03.07.2025
В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .
Создаем микросервисы с Go и Kubernetes
golander 02.07.2025
Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .
C++23, квантовые вычисления и взаимодействие с Q#
bytestream 02.07.2025
Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .
Вот в чем сила LM.
Hrethgir 02.07.2025
как на английском будет “обслуживание“ Слово «обслуживание» на английском языке может переводиться несколькими способами в зависимости от контекста: * **Service** — самый распространённый. . .
Использование Keycloak со Spring Boot и интеграция Identity Provider
Javaican 01.07.2025
Два года назад я получил задачу, которая сначала показалась тривиальной: интегрировать корпоративную аутентификацию в микросервисную архитектуру. На тот момент у нас было семь Spring Boot приложений,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru