delphi

[nadua]

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

[W0LF]

function HappyNumber(Num: integer): string;
var
  x1, x2, x3, x4: integer;
begin
  if Length(IntToStr(Num)) <> 4 then begin
    Result := 'Число не 4х-значное!';
    Exit;
    { если число несостоит из 4ех символов, тогда
     выводим в результат сообщение и выходим... }
  end else begin
    // если состоит значит...
    x1 := StrToInt(Copy(IntToStr(Num), 1, 1));
    x2 := StrToInt(Copy(IntToStr(Num), 2, 1));
    x3 := StrToInt(Copy(IntToStr(Num), 3, 1));
    x4 := StrToInt(Copy(IntToStr(Num), 4, 1));
    { Делим число на 4 цифры с помощью Copy
     По другому не придумал как }
    if x1 + x2 = x3 + x4 then
      Result := 'Число счастливое!'
    { Если сума первых 2ух чисел ровна суме остальных 2ух
     значит выводим в результат сообщение что это Счастливое
     число... }
    else
      Result := 'Число обычное...';
    {Если нет, то это обычное}
  end;
end;

[Grag]

В свое время я нечто подобное решил так:

    sumLeft:=0;
    sumRight:=0;
Str(Number,strNum);
    MultyNum:=trunc(Length(strNum) div 2);
    for j:=1 to MultyNum do
      begin {подсчитываем сумму цифр левой половины числа...}
        Val(strNum[j],str2num,code);
        sumLeft:=sumLeft+str2num
      end;
    if odd(Length(strNum)) {определяем начальный индекс правой половины числа...}
      then  {NeChet}
        MultyNum:=MultyNum+2
      else  {Chet}
        MultyNum:=MultyNum+1;
    for j:=MultyNum to Length(strNum) do
      begin {подсчитываем сумму цифр правой половины числа}
        Val(strNum[j],str2num,code);
        sumRight:=sumRight+str2num
      end;
    if sumLeft=sumRight then {сравниваем полученные суммы}

Подобная задача была на Паскале для произвольного числа ХХХХХХХХ
Код можно легко преобразовать для Delphi