рассчитать количество "счастливых" билетов с указанной сумой цифр (паскаль)

[gylayko]

вот задача: нужно рассчитать количество "счастливых" билетов с указанной сумой цифр среди тех, номер которых состоит из шести рязрядов. счастливым считается билет, сума первых трех цифр равна суме вторых трех цифр! и, если можно, программу для паскаля с объяснениями.

[Serge_Bliznykov]

gylayko
и в чём сложности? Задача, конечно, ресурсоёмкая, но простая в реализации.
делаете "в лоб" шесть вложенных циклов. внутри цикла проверяете, что if ((i1+i2+i3)=N) and ((i1+i2+i3)=(i4+i4+i6)) then увеличить_счётчик_на_единицу;
и всё.

[Zer0]

var i,j:word; sum:byte; count:longint;

function SumOfN(N:word):byte;
var sum,i:byte;
begin
 sum:=0;
 for i:=1 to 3 do begin
  sum:=(n mod 10) + sum
  sum:=sum div 10;
 end;
 SumOfN:=sum;
end;

begin
 write('Input summ of numbers: '); readln (sum);
 count:=1;
 for i:=0 to 999 do
  if sumofn(i)=sum then
   for j:=0 to 999 do
    if sumofn(j)=sum then inc(count);
 writeln ('Count of happy tickets = ',count);
 readln();
end.

вот лобовое решение к примеру