Найдите произведение цифр заданного k-значного числа)
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
