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

@krutov_vlk · Регистрация: 04.02.2013

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

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

@TakeOver · 04.02.2013, 23:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i,j,k,t:longword;
begin
for i:=1 to 9 do
  for j:=1 to 9 do
    for k:=1 to 9 do
      begin
    t:=i*100+j*10+k;
    if(t mod i=0) and (t mod j=0) and (t mod k =0) then
      writeln(t);
      end;
end.

что сложного, что бы сразу бежать на пхорум?

Новичок · 05.02.2013, 00:11

TakeOver,а не проще в одном цикле?

Pascal
1
2
3
4
5
6
7
8
9
10
var i,j,k,t:Integer;
begin
for t:=100 to 999 do
begin
i:=t div 100;
j:=t div 10 mod 10;
k:=t mod 10;
if (t mod i=0) and (t mod j=0) and (t mod k =0) then Writeln(t);
end;
end.

Добавлено через 1 минуту
Хотя твой метод интереснее,я привык так решать...

@GggDrej · 05.02.2013, 02:04

Сообщение от Андрей_Новичок

TakeOver,а не проще в одном цикле?

Ни в коем случае

@TakeOver · 05.02.2013, 09:20

Сообщение от Андрей_Новичок

TakeOver,а не проще в одном цикле?

Pascal
1
2
3
4
5
6
7
8
9
10
var i,j,k,t:Integer;
begin
for t:=100 to 999 do
begin
i:=t div 100;
j:=t div 10 mod 10;
k:=t mod 10;
if (t mod i=0) and (t mod j=0) and (t mod k =0) then Writeln(t);
end;
end.

Добавлено через 1 минуту
Хотя твой метод интереснее,я привык так решать...

во-первых у тебя оно сразу же рухнет из-за деления на ноль.
мой код делает 9*9*9 итераций = 729, твой 899.

Новичок · 05.02.2013, 17:52

TakeOver,спасибо.

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@krutov_vlk 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 6

	Найти все трехзначные числа, которые делятся на каждую из цифр в их записи 04.02.2013, 17:15. Показов 3070. Ответов 5 Метки нет (Все метки) Найти все трехзначные числа, которые делятся на каждую из цифр в их записи. 0

@GggDrej 74 / 74 / 64 Регистрация: 21.01.2013 Сообщений: 147
	05.02.2013, 02:04
	Сообщение от Андрей_Новичок TakeOver,а не проще в одном цикле? Ни в коем случае 1

Новичок 1682 / 1097 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	05.02.2013, 17:52
	TakeOver,спасибо. 0

Опции темы