Регистрация
kirushgold
25.09.2022 05:15
Информатика
Есть ответ 👍

Найти сумму чётных цифр числа) ) решить в паскале. буду )

167
376
Посмотреть ответы 2

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

elizaveta66
elizaveta66
4,8(14 оценок)

vars: integer; a,n: longint; beginwrite ('a ='); readln(a);

if (a div 10 = 0) and (odd(a)=false) then s: =a else beginn: =a;   while n div 10 < > 0 do beginn: =a;   if odd(a mod 10)=false then s: =s+a mod 10; a: =a div 10; end;

end; writeln (s); readln; end.

Gamonga
Gamonga
4,4(75 оценок)

Ну конечно можно, для этого уже и существуют готовые образы.

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