Найдите произведение цифр заданного k-значного числа)
Найдите произведение цифр заданного 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.
Не нашли ответ?
Похожие вопросы