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

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

Question

Информатика

Кирила

18 марта, 04:39

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

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

+4

Ответы (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. найти произведение четных цифр данного числа