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.
Спасибо
Ответ дал: Гость
если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. третий уходящий может надеть свою обувь. поэтому правильным ответом будет (б) 2 человека.
Популярные вопросы