Помогите, пожалуйста, с прогой на счастливое число)

[BeaU]

Определить, являеться ли заданое число счастливым(Счастливым называеться такое шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр)?

[Hacker19_90]

А так не катит????

if ((chislo div 1000) = (chislo mod 1000)) then Writeln('Число счастливое')
else Writeln ('Число не счастливое');

[Skyrazor]

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

А так не катит????

if ((chislo div 1000) = (chislo mod 1000)) then Writeln('Число счастливое')
else Writeln ('Число не счастливое');

нет, не катит. ибо число может быть, например 123321 - оно счастливое, но div его равен 123 а mod 321. кароче твоя версия катит только если первые три символа соответственно равны последним трем. А они могут быть разбросаны

решение - http://programmersforum.ru/showthread.php?t=53020

[AgentParanoidDroid]

Смотри, общий подход такой, ты можешь взять отдельно в переменные каждую цифру твоего числа. Затем сложить первые три числа и вторые три числа и сравнить их. Остаток от деления на 10 даст тебе последнюю цифру. Если число поделить на 10 и снова взять остаток от деления на 10 то получишь предпоследнюю. И так далее. Я нашел хороший пример проверки на счастливое число, но он на C#, зато можно уловить общий принцип. Плюс в исходнике есть более сложный пример, как проверить счастливое ли число в не зависимости от количества цифр.

[min@y™]

{$TELEPATOR_MODE ON}

function IsHappyNumber(const ANumber: DWORD): Boolean; inline; 
var
  a, b: Word;
begin
  a:= ANumber div 1000;
  b:= ANumber mod 1000;
  Result:= (a div 100) + ((a mod 100) div 10) + (a mod 10) =
           (b div 100) + ((b mod 100) div 10) + (b mod 10);
end;

{$TELEPATOR_MODE OFF}

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!