Задача о вычислении вероятности выпадения счастливого трамвайного билетика.

bool IsHappy(unsigned int n)
{
unsigned int i, d[10];
i = 0;
memset(d, 0, sizeof(d));
do
{
d[i++] = n % 10;
} while (n /= 10);
return ( (d[0] + d[1] + d[2]) == (d[3] + d[4] + d[5]) );
}

int main()
{
unsigned int count = 0;
for (unsigned int n = 0; n < 1000000; ++n)
{
if (IsHappy(n))
{
printf("%d\n", n);
++count;
}
}
printf("%.3f %%\n", 100.0 * count / 1000000);
return 0;
}

var i,i1,i2,i3,k:word; c:array[0..27]of word;
begin
k:=0; for i:=0 to 27 do c[ i]:=0;
for i1:=0 to 9 do for i2:=0 to 9 do for i3:=0 to 9 do inc(c[ i1+i2+i3]);
for i:=0 to 27 do k:=k+sqr(c[ i]); writeln(k/1e6:9:6); readln
end.

Смотри что можно сделать:
Заводишь массив, [0..27] - в таких пределах у тебя заключена сумма трех цифр.
Потом от 0 до 999 проходишь, находишь сумму цифр в числе и добавляешь в соотвествующий элемент массива единицу. (Это можно сделать в принципе 3мя вложенными циклами)
Затем проходишь по этому массиву, каждый элемент возводишь в квадрат (тебе нужны все комбинации) и складываешь. Все - получено число счастливых билетов. Теперь делишь это число на 1000 000 и находишь вероятность: -)

Вероятность то что он попадет тебе максимум 10% при том что в транспорте не маленькое количество людей!

Задача не полнаценая. Сколько билетиков в обороте? =)))