Дано натуральное число.Вывести произведение его четных цифр (программа)
Answers & Comments
Sky09
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.
Answers & Comments
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.