Question

найдите произведение цифр заданного k-значного числа)

Answer 1

var
k, s: integer;
begin
readln(k);
s:=1;
while k > 0 do
  begin
  s := s * (k mod 10);
  k := k div 10;
  end;
writeln(s);
end.