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

@anywasp · Регистрация: 19.10.2014

Студворк — интернет-сервис помощи студентам

Ребята, помогите, пожалуйста.
Нужно найти все натуральные числа (количество), не превышающие заданного 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.

@JokeR.BY · 26.10.2014, 00:30

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

Новые блоги и статьи Все статьи Все блоги /
Тестирование энергоэффективности и скорости вычислений видеокарт в 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 приложений,. . .

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	26.10.2014, 00:30
	Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр 1

Опции темы