Информатика, опубликовано 2018-08-22 21:52:04 by Гость
Дано натуральное число.Вывести произведение его четных цифр (программа)
Ответ оставил Гость
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 (n0) then pr:=pr*n;
a:=a div 10;
end;
writeln(Произведение четных цифр числа: ,pr);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на