Question

Найдите количество 7-значных чисел, произведение цифр которых делится на 10.

Answer 1

Ответ:

6841107

Объяснение:

Составил программу на Pascal.Приведена ниже, для проверки.

function f(i:longint):boolean;

var q,w,e,r,t,y,u:byte;

begin

 q:= i mod 10;

 w:= (i div 10) mod 10;

 e:= (i div 100) mod 10;

 r:= (i div 1000) mod 10;

 t:= (i div 10000) mod 10;

 y:= (i div 100000) mod 10;

 u:= i div 1000000;

 if (q * w * e * r * t * y * u) mod 10 = 0 then f:= True else f:= False;

end;

var i:longint;k:integer;

begin

 for i:=1000000 to 9999999 do

 if f(i) then k:= k + 1;

 write(k);

end.

P.S. Как вы уже поняли, место в основном заняли цифры числа, если можно как-то по-другому, подскажите, буду только рад увидеть.)