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

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

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

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

var n,k,i,a:integer;begin;k:=1;i:=0;readln(n);readln(a);while n>=1 dobegin;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.