Склавиатуры вводится целое число. найти произведение его цифр.

в паскале,9 класс

var

 i, x, w, k, p: integer;

 s, g: string;

begin

 p := 1;

 readln(s);  

 val(s,x,k);

 while x > 0 do

 begin

   w := x mod 10;

   p := p * w;

   x := x div 10;

 end;  

  writeln(p);

end.

Объяснение:

В данном варианте решения используется перевод строковой величины в целое число типа integer. Потом используются функции div  

и mod.