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

[vell]

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

[volvo]

для 46592 он будет 10000

46592 ты не запихаешь в Integer, для начала... Разговор о 16-битном компиляторе, а не о 32-битах.

Добавлено через 5 мин.
Кстати, достаточно сделать так:

uses crt;
var s, a, n: integer;
begin
  clrscr;
  writeln('vvedite naturalnoe chislo');
  readln(n);

  s := 0;
  while n <> 0 do begin
    a := n mod 10;

    if a = 0 then s := 0
    else begin
      if a mod 2 = 0 then s := s + a
    end;
    n := n div 10;
  end;

  writeln('summa cifr = ', s);
  readln;
end.

Сообщение отредактировано: volvo - 18.11.2007 2:04