Вопрос Сделать программу на паскале

[Dimajkee0912]

Есть число в нем найти все четные числа и вывести их произведение? Сделать с помощью процедуры

 

[Stilray]

за процедурами это в 314 кабинет

 

[zver987]

Может тебе ещё игру 3д сделать по типу киберпанка?

 

[джордж]

procedure FindEvenNumbers(n: integer);
var
result: integer;
begin
result := 1;
while n > 0 do
begin
if n mod 2 = 0 then
result := result * (n mod 10);
n := n div 10;
end;
writeln('Произведение четных цифр: ', result);
end;

var
number: integer;
begin
writeln('Введите число: ');
readln(number);
FindEvenNumbers(number);
end.

 

[Владислав0770]

Такой вариант (Free Pascal): var m, n: int64;

procedure product_of_even_digits(n: int64; var p: int64);
var digit: integer;
begin
if n = 0 then p := 0
else
begin
if n < 0 then n := -n;
p := 1;
while n > 0 do
begin
digit := n mod 10;
if not odd(digit) then p := p * digit;
n := n div 10
end;
end
end;

begin
write('n: ');
readln;
product_of_even_digits(n, m);
if m = 1 then writeln('Нет чётных цифр')
else writeln('Произведение чётных цифр: ', m)
end.