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

Question

Информатика

Степанка

25 июля, 17:09

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

+2

Ответы (1)

Знаете ответ?

Вераха · 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.