Дано произвольное целое положительное число k (k - вопрос №9763277109 от kashavcevaeliz 28.07.2020 03:02

Question

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

kashavcevaeliz · 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) найти произведение всех цифр этого числа которые кратны трём