Найти сумму всех четных цифр в числе

@Blu · Регистрация: 25.07.2012

Author24 — интернет-сервис помощи студентам

Как-то не задалось у меня с этими тремя,не получается . _ .

1.Нужно найти сумму всех четных цифр в числе.
Заранее огромное спасибо

@CodeR · 25.07.2012, 10:11

Сообщение от Blu

1.Нужно найти сумму всех четных цифр в числе.

Pascal

Var s,n:integer;
Begin
    write('Введите число: ');readln(n);
    s:=0;
    While n<>0 do
     Begin
      if n mod 10 mod 2 = 0 then s:=s+n mod 10;
      n:=n div 10;
     End;
    if s<>0 then writeln('Сумма четных цифр: ',s)
     else writeln('Нету четных цифр в числе');
    readln;
End.

@Blu · 25.07.2012, 11:36 **[ТС]**

Вы мой герой ! Спасибище

@Blu 0 / 0 / 0 Регистрация: 25.07.2012 Сообщений: 5
		1
	Найти сумму всех четных цифр в числе 25.07.2012, 09:21. Показов 53974. Ответов 2 Метки нет (Все метки) Как-то не задалось у меня с этими тремя,не получается . _ . 1.Нужно найти сумму всех четных цифр в числе. Заранее огромное спасибо 0

@Blu 0 / 0 / 0 Регистрация: 25.07.2012 Сообщений: 5
	25.07.2012, 11:36 [ТС]	3
	Вы мой герой ! Спасибище 0

Найти сумму всех четных цифр в числе

Решение