псевдосчастливые числа Опции

[GrAnna]

Привет народ! Все знают решение задачи про количество счастливых билетов,а я хочу предложить задачу о количестве псевдосчастливых чисел.Число является псевдосчастливым ,если сумма любых трех цифр равна сумме оставшихся( ф1+ф2+ф4=ф3+ф5+ф6 и т.д.).Плиз!!! помогите правильно написать на Паскале!

[Michael_Rybak]

В лоб конечно.

for i := 000000 to 999999 do
begin
  вычисляем цифры -> digit[1..6]
  вычисляем сумму цифр -> sum
  if (digit[1] + digit[2] + digit[3]) * 2 = sum then
    //счастливый
    continue;
  ok := false;
  for a := 1 to 6 do
    for b := a + 1 to 6 do
      for c := b + 1 to 6 do
        if (digit[a] + digit[b] + digit[c]) * 2 = sum then
          ok := true;
  if ok then
    Writeln(i);
end;

Сообщение отредактировано: Michael_Rybak - 28.12.2006 10:45