"Счастливые" билеты

Необходимо посчитать количество "Счастливых" билетов с указанной суммой цифр, среди тех, номер которых состоит из 6 разрядов. "Счастливым есть билет, у которого сумма первых 3 цифр равна сумме 3 последних цифр.
3 ответа

Вот вродебы:
 var a:array [1..10000] of integer;
n,kol,s,s1,i,i1:integer;
begin
writeln('vvedite kol-xo biletov');
readln(n);randomize;
kol:=0;
for i:=1 to n do begin
    s:=0;
    s1:=0;
    for i1:=1 to 6 do begin
        a[i1]:=random(10);
 
        if i1<=3 then s:=s+a[i1]
           else s1:=s1+a[i];
                      end;
                      if s=s1 then inc(kol);
 
                   end;
writeln('количество счастливых билетов - ',kol);
end.


Var s,s1,s2,k,i:longint;
Begin
    write('Введите сумму: ');readln(s);
    k:=0;
    For i:=100000 to 999999 do
    Begin
      s1:=(i div 100000)+(i div 10000 mod 10)+(i div 1000 mod 10);
      s2:=(i div 100 mod 10)+(i div 10 mod 10)+(i mod 10);
      if (s1=s2)and(s=s1) then inc(k);
    End;
    if k>0 then writeln('Счастливых билетов с указанной суммой цифр: ',k)
     else writeln('Счастливых билетов с указанной суммой цифр нету');
    readln;
End.


 var a:array [0..27] of integer;
n,i,t,t1:integer;
begin
writeln('Сумма: ');
readln(n);
for i:=0 to 999 do begin
t1:=i; t:=0;
while t1>0 do begin
t:=t+t1 mod 10;
t1:=t1 div 10;
end;
inc(a[t]);
end;
if (n mod 2 =1) or (n>54) then 
Writeln(0)
else
Writeln(a[n div 2]*a[n div 2]);
end.