Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 10.02.2012, 12:17   #1
ринат Д
Пользователь
 
Регистрация: 07.02.2012
Сообщений: 14
Вопрос Надо решить эту снежиииинку

Снежная королева придумала Каю задание:
собрать льдинки, у которых число граней, выражающееся не более чем трехзначным числом, делится на каждую из цифр, встречающуюся в записи числа гра¬ней этой льдинки. Когда мальчик соберет все такие льдинки, Снежная королева согласится отпустить его домой. Помоги Каю выбраться из ледяного плена.
ринат Д вне форума
Старый 10.02.2012, 20:37   #2
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию

че за детский сад?
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума
Старый 10.02.2012, 22:52   #3
Rififi
Старожил
 
Регистрация: 19.08.2009
Сообщений: 2,119
По умолчанию

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


Кай забил болт на задание и сидит на попе ровно, ждет Герду, когда она придёт его спасать.
Rififi вне форума
Старый 11.02.2012, 08:12   #4
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Код:
for i:=0 to 9 do
  for j:=0 to 9 do
    for k:=0 to 9 do begin
      g:= i*100 + j*10 + k;
      if g mod i + g mod j +g mod k = 0 then writeln(g)
    end;
Вот как-то так.. Не уверен, но возможно, что надо еще добавить условие g>3, поскольку многогранников с числом граней, меньшим 4, не бывает.
Предпочитаю на "ты".
TinMan вне форума
Старый 11.02.2012, 10:10   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Ринат, а чем ваша же тема
Снежная королева придумала Каю задание
вас не устроила?!

Публикация одинаковых сообщений тем и сообщений называется КРОССПОСТИНГ и запрещено на форуме!


Модератор.
Serge_Bliznykov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу решить эту задачку: Driver_09 Помощь студентам 7 12.10.2009 10:01
переполнение стека. помогите решить эту проблему Hikari Паскаль, Turbo Pascal, PascalABC.NET 1 01.06.2009 18:58
Помогите решить 2 задачки срочно надо а то меня повешают на практике мне надо к 2 июня!!! серега222 Паскаль, Turbo Pascal, PascalABC.NET 0 27.05.2009 17:46
Помогите решить эту задачку Magic Blood Microsoft Office Excel 1 16.05.2007 18:17