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

[vell]

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

[Client]

попробуй так

while (n<>0) and ((n mod 10)<>0) then s:=s+a;

сам не пробовал, но вроде должна работь..

Сообщение отредактировано: Client - 17.11.2007 21:33

[BE@ST]

попробуй так

if ((a mod 2)=0)and(a<10) and ((n mod 10)<>0) then s:=s+a;

сам не пробовал, но вроде должна работь..

ввёл 24066 и выдало 10...



Добавлено через 10 мин.

попробуй так

while (n<>0) and ((n mod 10)<>0) then s:=s+a;

сам не пробовал, но вроде должна работь..

так оно берёт числа справа а не слева ...

Код

uses crt;
var s,a,n:integer;
begin clrscr;
writeln('vvedite naturalnoe chislo');
readln(n);
s:=0;
while (n<>0) and ((n mod 10)<>0) do begin
a:=n mod 10;
n:=n div 10;
if (((a mod 2)=0)and(a<10)) then s:=s+a;
end;
writeln('summa cifr... =',abs(s));
readln;
end.

получилось 12...