Помогите с решением задачи решение ** языке аскаль ** обработку поступает натуральное...

Question

Помогите с решением задачи решение на языке аскаль На обработку поступает натуральное число, не превышающее 109. Нужно написать программу, которая выводит на экран произведение цифр числа, которые делятся на 2 и на 4. Если в числе нет таких цифр, требуется на экран вывести «NO».

Answer 1

Ответ:

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