Дано натуральное число. Вывести произведение его четных цифр (программа)

Question

Информатика

Ефимья

13 ноября, 15:55

Дано натуральное число. Вывести произведение его четных цифр (программа)

+4

Ответы (1)

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

Никеня · Answer 1

Uses crt;

var a, pr, n:integer;

begin

pr:=1;

write ('Введите число: ') ; readln (a) ;

while a>0 do

begin

n:=a mod 10;

if (n mod 2=0) and (n0) then pr:=pr*n;

a:=a div 10;

end;

writeln ('Произведение четных цифр числа: ', pr) ;

end.