Регистрация
ерен1
26.03.2021 08:44
Информатика
Есть ответ 👍

Яки интернет послуги до нам у подальшому житти​

226
229
Посмотреть ответы 1

Ответы на вопрос:

proulechka
proulechka
4,7(13 оценок)

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.

Популярно: Информатика