Ответы на вопрос:
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.
Популярно: Информатика
-
vavilina00025.03.2021 08:42
-
krasota3325.03.2020 00:59
-
ВладКрикет31.08.2021 17:49
-
sashkatimoshka14.08.2021 10:22
-
Phgfg24.08.2020 06:10
-
o12345678915.07.2020 09:54
-
Valyshka1106.09.2020 06:45
-
RitaTrott24.07.2021 09:13
-
Olga2000466619.05.2023 02:25
-
kudadiana310124.03.2020 15:20