Помогите с Паскалем

Question

Евгений Пономарёв Знаток (461), закрыт 8 лет назад

Составить программу которая находит произведение всех четных цифр в записи данного натурального числа

Дополнен 8 лет назад

P.S.
Через цикл WHILE

Дополнен 8 лет назад

Для тех, кто задался там же вопросом, вот решение для школьного уровня 10го класса

Answer 1

Gennady Гений (60243) 8 лет назад

p := 1;
while n <> 0 do begin
if n mod 10 mod 2 = 0 then p := p * (n mod 10);
n := n div 10;
end;

Спасибо)

Answer 2

Так создай массив чисел, выбери из этого массива только чётные (через for) и умножай.

Answer 3

Kol := 0;
while N > 0 do
begin
if Not Odd(N mod 10) then Inc(Kol);
N := N div 10;
end;

Answer 4

Зои Амр Профи (930) 8 лет назад

а что это такое?)))

Answer 5

Kol := 0;
while N > 0 do
begin
if Not Odd(N mod 10) then Inc(Kol);
N := N div 10;
end;