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

Question

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

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