Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Object Pascal: кроссплатформенные технологии > БИЛЕТ


Автор: Aleche 1.1.2005, 19:47
Привет всем!!!! С Новым годом!!!! А у меня вот проблемка вышла.Один однокурсник попросил программку написать,а я что-то торможу.Если кто-нибудь поможет ,буду очень признательна!!!!Условие следующее:
ПОДСЧИТАТЬ КОЛИЧЕСТВО СЧАСТЛИВЫХ ШЕСТИЗНАЧНЫХ БИЛЕТОВ ,Т.Е. ТЕХ ,В НОМЕРАХ КОТОРЫХ СУММА 3-Х ПЕРВЫХ ЦИФР РАВНА СУММЕ 3-Х ПОСЛЕДНИХ( ВОСПОЛЬЗОВАТЬСЯ НУЖНО ВОТ ЭТИМ:
ЧИСЛО СЧАСТЛИВЫХ БИЛЕТОВ РАНО :SQR(S0).......sqr(S27), где Sn-количество чисел от 0 до 999,сумма цифр лоторых равна n.
ВОТ ТАКАЯ ЗАДАЧА!!!!!!!!!!!

Автор: Fedor 1.1.2005, 21:02
Вроде так. Если я правильно понял выражение SQR(S0).......sqr(S27)
Код

...
for i:=0 to 27 do
begin
  sum:=sum+sqr(i);
end;
...

Автор: Pakshin A. S. 1.1.2005, 21:11
Привет! Приведи пример... (Если из усковой, то дай страницу)
Я что-то вообще не пойму эту задачу... smile

Автор: volvo877 2.1.2005, 11:25
Aleche
Посмотри http://algolist.manual.ru/olimp/rec_sol.php#a2 третье решение для задачи №2... По-моему, это как раз то, что нужно.

Автор: Aleche 2.1.2005, 13:36
Привет!!!VOLVO877,классный сайт!!!Вот это круто-задача олимпиадная!!!Мне очень решение понравилось,я бы долго думала над таким!!!Интересно,а кто такие решения на твоем форуме публикует????

FEDOR,ты правильно понял это выражение.


Привет,Pakshin A.S.!!Эта задача не из Усковой!Меня знаешь кто попросил? Саша из 4-ой группы-он иногда с нами на курсы ходит,ему такую препод задал!!!Честно,я сама не очень задачу поняла,поэтому сюда и написала.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)