Найти сумму всех четных цифр в числе - Pascal
Формулировка задачи:
Как-то не задалось у меня с этими тремя,не получается . _ .
1.Нужно найти сумму всех четных цифр в числе.
Заранее огромное спасибо
Решение задачи: «Найти сумму всех четных цифр в числе»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д