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

1234567812445672676 1234567812445672676    2   01.05.2020 19:59    0

Ответы
Колобокхоёк Колобокхоёк  14.10.2020 05:52

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика