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

В паскале,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.