Ответы
Ответ дал:
0
Ответ:
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.
Ответ дал:
0
Блок схему плз можно
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад