с решением задачи
решение на языке аскаль
На обработку поступает натуральное число, не превышающее 109. Нужно написать программу, которая выводит на экран произведение цифр числа, которые делятся на 2 и на 4. Если в числе нет таких цифр, требуется на экран вывести «NO».
program z1;
var a,p: longint;
begin
write ('Введите число: ');
readln(a);
p:=1;
repeat
if (a mod 10 mod 2 = 0) and (a mod 10 mod 4 = 0) then p:=p*(a mod 10);
a:=a div 10
until a=0;
if p = 1 then write('NO')
else writeln(p)
end.
Объяснение:
0 учитывается как число делящееся на 2 и на 4, в этом случае произведение равно 0