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.
