Var factorial: longint; n, i: byte; begin write('n = '); readln(n); factorial : = 1; for i: =2 to n do factorial : = factorial * i; writeln('n! = ', factorial); readln; end.
Спасибо
Ответ дал: Гость
сначала плывут 2 мальчика, один остается там, а второй возвращается. мальчик остается на берегу, а на другой берег плывет один солдат. он остается там, а сюда приплывает обратно мальчик. опять плывут 2 мальчика, опять один остается, а другой возвращается с лодкой. плывет второй солдат, а с лодкой возвращается второй мальчик. солдаты на том берегу, а мальчики и лодка - на этом. вуаля!
Популярные вопросы