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