Задача "Счастливый билет" (Turbo Pascal) - трубуется помощь

[Gorychev]

А как вывести колличество счастливых билетов от 000000 до 999999??

Такую задачку, помню, задали в самый первый день моей учебы в универе...
На мой взгляд, приведенный ниже код самый оптимальный по быстродействию.

var a,b,c,d,e,f: byte;
    rez: longint;
begin
 rez:=0;
  for a:=0 to 9 do
    for b:=0 to 9 do
      for c:=0 to 9 do
        for d:=0 to 9 do
          for e:=0 to 9 do
            for f:=0 to 9 do
                if ((a+b+c)=(d+e+f)) then inc(rez);

   writeln(rez);
end.

[vector]

Сообщение от Gorychev

Такую задачку, помню, задали в самый первый день моей учебы в универе...
На мой взгляд, приведенный ниже код самый оптимальный по быстродействию.

...

По быстродействию быстрее можно, если f не перебирать, а вычислять как a+b+c-d-e, и проверять, что это значение входит в диапазон 0..9.

А еще быстрее можно таким алгоритмом:

var a,b,c: byte;
    rez: longint;
    arr: array[0..27] of longint;
begin
 rez:=0;
  for a:=0 to 9 do
    for b:=0 to 9 do
      for c:=0 to 9 do
        inc(arr[a+b+c]);
  for a:= 0 to 27 do 
    rez:=rez+arr[a]*arr[a];

   writeln(rez);
end.

[capta1n]

Держи парень - все что просил - пишет в выходной файл - мне кажется так удобнее будет тебе воспринять:

program happy;
var
 count, i : longint;
 er : integer;
 s : string[6];
 n,k : 0..6;
 l : 0..9;
 sum1, sum2 : byte;
begin
assign (output, 'output.txt');
rewrite (output);
writeln ('Happyness!');
writeln;
count:=0;
for i:=1 to 999999 do
begin
  sum1:=0;
  sum2:=0;
  str(i,s);
  n:=length(s);
  for k:=1 to (6-n) do
   s:='0'+s;
  for k:=1 to 6 do
   if k<=3 then
   begin
     val (s[k],l,er);
     sum1:=sum1+l
   end
   else
   begin
     val (s[k],l,er);
     sum2:=sum2+l
   end;

  if sum1=sum2 then
  begin
    writeln ('Happyness: ',s);
    count:=count+1
  end
end;
writeln;
writeln ('Count= ',count);
readln;
close (output)
end.

Ну если не хочешь в файл - мона убрать асигны и всю эту хрень ) - в принципе мне сама прога понравилась - если я не ошибаюсь счастливый билет это тот, у которого левая и правая части по сумме совпадают - тогда моя прога вроде работает - всего доброго - и не забудь мне отзыв оставить, если программа удовлетворила))) очень прошу)) буду благодарен))

[Gorychev]

vector +1

[Иван Добро]

Ребята, а у меня такой вопрос.
составить программу позволяющую определить является ли автобусный билет счастливым и если да то по какой системе. (Системы: Московская и Питерская. Московская - это сумма первых 3 чисел равна сумме вторых 3 чисел, а Питерская - сумма четных чисел равна нечетным). Заранее огромное спасибо

[Иван Добро]

ребята срочно!

[Lodyr]

встречный вопрос = а если задается такой диапозон
2к значный билет, то есть вводим к = его значение
например введите к = 6, то 2к=12
после будет так происходить = слева и справа должно быть по 6тизначному числу
и тоже самое = находим количество этих билетиков счастливых
как тогда?