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

[vell]

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

[Fire_Rage]

А это-рекурсия.

Код

uses crt;
var i,g:integer;

function symma(i:integer):integer;
var t:integer;
begin
 if i=0 then symma=0
          else  begin
                    t:=i mod 10;
                    if t mod 2 =0 then symma:=symma(i div 10)+t
                                        else symma:=symma(i div 10);
                  end;
end;

begin
 clrscr;
 readln(i);
 g:=symma(i);
 writeln(g);
end.

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