Решить с помощью case

дано натуральное число n. найти произведение четных цифр данного числа

Question

Информатика

Аграфенка

24 сентября, 19:37

Решить с помощью case

дано натуральное число n. найти произведение четных цифр данного числа

+2

Ответы (1)

Знаете ответ на вопрос?

Настяха · Answer 1

Var a, b, c: integer;

readln (a) ;

c:=1;

while a> 0 then

begin

b:=a mod 10;

case b of

0,2,4,6,8: c:=c*b;

end;

a:=a div 10;

end;

writeln (c) ;

ebd.

Решить с помощью caseдано натуральное число n. найти произведение четных цифр данного числа

Решить с помощью case

дано натуральное число n. найти произведение четных цифр данного числа