Задача о сумме четных чисел. Опции

[vell]

Нам задали 15 задач на Pascalе. Я решила 14, но последняя все никак не получается.
Задача: Дано натуральное число N. Найти сумму четных цифр в данном числе.
Если кто знает, как её решать - подскажите, буду очень благодарна.

[APAL]

Какие-то ошибки

Вот результат работы данного кода:

123456
46
222
6
123
2
1234
6
12345
6
123456
46
654321
91

Сам код проги (на основе идеи ___Alex____):

Код

Uses Crt;
Var
 k : Longint;
function SumEvenDigits(N: Integer): Byte;
Var Result : LongInt;
const
HashTable: Array[0..9] of Byte = (0, 0, 2, 0, 4, 0, 6, 0, 8, 0);
begin

 Result := 0;
  repeat
    Inc(Result, HashTable[N mod 10]);
      N := N div 10;
  until N = 0;
 SumEvenDigits:=Result;
end;
Begin
ClrScr;
Repeat
Read(k);Writeln('  ',SumEvenDigits(k));
Until k=0;
end.

Сообщение отредактировано: volvo - 17.12.2004 14:45