подскажите пожалуйста как такое реализовать в 1с, в с++ знаю как делать, а тут даже не представляю как это реализовать.
Есть Трамвайные билеты имеют номера из шести цифр от 000000 до 999999, билет называется счастливым, если сумма 1-й, 2-й и 3-й цифр равна сумме 4-й, 5-й и 6-й цифр. Необходимо вычислить количество счастливых билетов.
Должно получится  55252 билетиков.....но как реализовать??
Подскажите пожалуйста

(24) глядя на поворот полотна Сапсан там не ходит

(28) Сообщить()

забыл

блин я не знаю чего вы не верите, поменяла я ту фотку, только помогите плиз

(33) В (28) все написано же

(33) см 28. После этого цикла в Количество будет твой счастье

не подскажите куда это вписывать, документ создавать, или отчет...что с этим нужно делать

(36) создать внешнюю обработку, код всунуть в модуль, там уже будет процедура "Сформировать()".

dianna ты уже сразу ссылку на фотоальбом ))

(0)дай почту или сайп, вышлю

Кажется тут уже попахивает фоткой в бикини :).
Что тебе дальше с этим делать надо ?

Долго работает перебором... однако

(36)Создай счастливую конфигурацию. Чтобы она при начале работы системы сообщала количество счастливых билетиков.

Стукни в скайп (0) Skype:"MedvedevMaksim"

(43) сейчас тебе ответит ))

(41) Переделай под запрос, будь уже мужиком ;)

(33)Дина,а можно мне одному ссылку на пару-тройку фоток-я никому не покажу.Я хороший

Лево:9 9 7 Право:8 9 8
Лево:9 9 7 Право:9 7 9
Лево:9 9 7 Право:9 8 8
Лево:9 9 7 Право:9 9 7
Лево:9 9 8 Право:8 9 9
Лево:9 9 8 Право:9 8 9
Лево:9 9 8 Право:9 9 8
Лево:9 9 9 Право:9 9 9
55 252

(44) щас, уже скайп ставлю... :-D

пару-тройку фапографий)

(0) не обнамула ,глядика ,честная.

maxmb скайп не дам,вот почта [email protected]

(51) ящик создан сегодня

Для блондинок пишут такие коды вроде:    Число = 777555;
   Строка = СтрЗаменить(Число(Строка(Число)), " ", "");
   Первое = Число(Сред(Строка, 1, 1));
   Второе = Число(Сред(Строка, 2, 1));
   Третье= Число(Сред(Строка, 3, 1));
   Четвертое = Число(Сред(Строка, 5, 1));
   Пятое = Число(Сред(Строка, 6, 1));
   Шестое = Число(Сред(Строка, 7, 1));
   СуммаПервыхТрех = Первое + Второе + Третье;
   СуммаОстальныхТрех = Четвертое + Пятое + Шестое;
   Если СуммаПервыхТрех = СуммаОстальныхТрех Тогда
       Сообщить("равны");
   Иначе
       Сообщить("не равны");
   КонецЕсли;

Строка = СтрЗаменить(Число(Строка(Число)), " ", ""); убрать)

(30) это узкоколейка, к тому-же заброшенная

(52) как узнал? Любви не светит?

(55) нажми F5, обнови уже профиль дианы)

(56) яндекс знает всё =)

ник dianna проходил вчера-сегодня в новостях:
http://habrahabr.ru/post/158303/

вывод - автор тролль, читающий хабр

(0) в 1С так же как и в С++ - через десятичный логарифм

(50)А у тебя есть еще ее фотки вышли брату 1снику!

(61) в контакте ее фоток вагон и тележка. только вот незнаю можно ли сюда ссылки выкладывать)

+(62) ничо кстати так ага)

(62) в Бложек отправь ссылку

Всем большое спасибо

Фото фейк... уж больно хороша.

(62) а как ее вконтакте найти,напиши на почту)

(55) ширина колеи меньше метра... никогда такой невидел

(65) только неговори, что ты нас покидаешь

можно так
Процедура Сформировать()
   ТабЗ.НоваяКолонка("Номер");
   Для i1 = 0 по 9 Цикл
       Для i2 = 0 по 9 Цикл
           Для i3 = 0 по 9 Цикл  
               С1 = i1+i2+i3;
               Для i4 = 0 по 9 Цикл
                   Для i5 = 0 по 9 Цикл
                       Для i6 = 0 по 9 Цикл
                           С2 = i4+i5+i6;
                           Если С1=С2 Тогда
                               ТабЗ.НоваяСтрока();
                               ТабЗ.Номер = Строка(i1)+Строка(i2)+Строка(i3)+Строка(i4)+Строка(i5)+Строка(i6);
                           КонецЕсли;
                       КонецЦикла;
                   КонецЦикла;
               КонецЦикла;
           КонецЦикла;
       КонецЦикла;
   КонецЦикла;
Сообщить(ТабЗ.КоличествоСтрок());    
КонецПроцедуры

долго конечно, но не очень

(62) нет у неё вконтакта

(71) есть я ж нашел

(68) кому что, колея...Да при чем здесь колея

(72) ссылку в студию

id113945488

(75) +5

понятно

SanGvin === dianna

(75)Ты мой самый лучший друг теперь!

(75) теперь она будет вынуждена удалится из контактов :)

автор <> диана :)

120 билетов

(77) ага щас) просто я умею гуглить по картинкам
(80) полюбас)) такие девочки не программят на си

(82) ещё что ты мне про картинки расскажешь ?

что-то в контакте москва, а тут питер - не сходится :(

(84) т-с-с
не выдавай ))

(85) какая она нафиг дианна, она гаспарян!

Оказлось даже билеты могут быть счастливыми по-питерски и по-московски.
Как там у вас все сложно :).

(55) ну... по статистике на мисте у всех больше 25 см и что?

(83) Внешность + умеет программить на си (поговорить никогда не будет скучно) - если так, то это просто идеал)

(89) гаспаряны не умют программировать

восхиC++ьки

там сиськи, что стоят.

(17) где же рекурсия ?

Люди!
А слабо получить число счастливых билетов для длины номера
12, 24, 48 символов?

(94) напиши алгоритм для числа из 2х чифр, 4х, 6ти
и сравни

http://www.ega-math.narod.ru/Quant/Tickets.htm

тема С++сек не раскрыта

(0)я уже влюбился

(98) см. в (90)

100

(99)очередь да????!!!!!! 100

перечитай

вообще-то, номера начинаются с 000001, если что. хотя когда у нас в городе давно пытались сделать рекламу на троллейбусных билетах, идея не взлетела, однако, одну серию успели напечатать и я чисто случайно стал счастливым обладателем билета с номером АА 000000. хотя эту идею у меня "друг" спер. у меня уже около 150 счастливых билетиков, однако перестал собирать, как появились маршрутки, а потом и машина

Вот что значит - ПРАВИЛЬНОЕ ФОТО!!!!!!!!!!
Больше сотни постов, меньше половины из них - по сабжу.
Мужчины! Вами можно гордиться!!!!!!!!!!!!

(104) читай (77)

(103)

567891

самый крутой номер.

(106) 777777 не?

Автор тролль, а те кто уже передернули на фото лохи.

если только посчитать, то вот:

макс_н=9+9+9;
всего = 0;
Для с=0 по макс_н Цикл
 для_с = 0;
 Для и1=0 по мин(9,с) Цикл
   Для и2=0 по мин(9,с-и1) Цикл
     Если с-и1-и2<10 Тогда
       для_с = для_с + 1;
     КонецЕсли;
   КонецЦикла;
 КонецЦикла;
 всего = всего + для_с * для_с;
КонецЦикла;
Сообщить("Всего билетов: "+всего);

даже так:
макс_н=9+9+9;
всего = 0;
Для с=0 по макс_н Цикл
 для_с = 0;
 Для и1=0 по мин(9,с) Цикл
   Для и2=макс(0,с-и1-9) по мин(9,с-и1) Цикл
     для_с = для_с + 1;
   КонецЦикла;
 КонецЦикла;
 всего = всего + для_с * для_с;
КонецЦикла;
Сообщить("Всего билетов: "+всего);

и оптимизнём:

макс_н=9+9+9;
всего = 0;
Для с=0 по макс_н Цикл
   для_с = 0;
   Для и1=0 по мин(9,с) Цикл
       для_с = для_с + макс(0,(мин(9,с-и1)-макс(0,с-и1-9)+1));
   КонецЦикла;
   всего = всего + для_с * для_с;
КонецЦикла;
Сообщить("Всего билетов: "+всего);

(110) для суммы 1 разве получится

001 001
001 010
001 100

010 001
010 010
010 100

100 001
100 010
100 100

??

(112) что не так?

не так посчитал

dianna твоя
=)

не твоя, а твой

http://vk.com/id113945488  фото отсюда взято, причём владелица странички из Москвы, а автор из (0) из Санкт-Петербурга.

(117) Кто там из питера не знает как такую задачу решить?

(117) см. в (77)

(119) Нифига. http://hi-tech.mail.ru/miss_hitech_2012/photo/1771/

(120) SanGvin стырил фотку из id vk

(121) Почему он? По IP?

http://cinemaxx.ru/index.php?subaction=userinfo&user=diana040691

(122) по социальной инженерии =)

(106) почему?

(9) 5000?

(77) Откуда инфа?

Так это Диана Г..ян или Роза Сангвина ?

Одиночество - это когда фотографируешься через зеркало, чтобы заслать фотку на сайт

(108) Спасибо не успел, вовремя увидел