Дано произвольное целое положительное число k - вопрос №1099762775 от nizametdinovaalina 08.03.2020 18:35

Question

Информатика: Дано произвольное целое положительное число k (k =10^9) найти произведение всех цифр этого числа которые кратны трём

nizametdinovaalina · Answer

var s: string; i,n: integer; begin readln(s); n:=1; for i:=1 to length(s) do  if ((s[i]= 3 ) or (s[i]= 6 ) or (s[i]= 9 )) then  n:=n*(ord(s[i])-48); write(n); end....

Дано произвольное целое положительное число k (k< =10^9) найти произведение всех цифр этого числа которые кратны трём