RoadToSilver Job
отредактировано
Продвинутый
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
n,mult: integer;
begin
write('Введите число: ');
readln(n);
mult := 1;
while n > 0 do
begin
if not odd(n mod 10) then
mult := mult * (n mod 10);
n := n div 10
end;
writeln('Произведение четных цифр = ', mult);
readln;
end.
