Дано натуральное число: а) найти произведение его цифр; б) верно ли, что в данном числе...

Question

Дано натуральное число: а) найти произведение его цифр; б) верно ли, что в данном числе нет данной цифры А ( А вводитмя с клавиатуры)

Answer 1

Var n,k,i,a:integer;
begin;
k:=1;
i:=0;
readln(n);
readln(a);
while n>=1 do
begin;
if (n mod 10)=a then
 i:=1;
k:=k*(n mod 10);
n:=n div 10;
end;
writeln('Произведение:',k);
if i=1 then writeln('Да') else writeln('Нет');
end.

Comments

А можно как - то решить это задание без "i"?

---

Можно заменить на булево значение, но это не многое изменит. В любом случае должен быть индикатор по выходу из цикла.

---

Ну ладно, спасибо большое)