Uses crt; var a,pr,n:integer; begin pr:=1; write('Введите число: '); readln(a); while a>0 do begin n:=a mod 10; if (n mod 2=0) and (n<>0) then pr:=pr*n; a:=a div 10; end; writeln('Произведение четных цифр числа: ',pr); end.
Одним из таких свойств является дискретность. Под дискретностью понимается то, что алгоритм состоит из описания последовательности шагов обработки, организованный таким образом, что в начальный момент задаётся исходная ситуация, а после каждого следующего шага ситуация преобразуется на основе данных, полученные в предшествующие шаги обработки. Дискретность алгоритма означает, что он исполняется по шагам: каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.
var a,pr,n:integer;
begin
pr:=1;
write('Введите число: '); readln(a);
while a>0 do
begin
n:=a mod 10;
if (n mod 2=0) and (n<>0) then pr:=pr*n;
a:=a div 10;
end;
writeln('Произведение четных цифр числа: ',pr);
end.