Сначала небольшие пояснения.
Если после первого года количество рыбы в пруду не уменьшится, то вылов небольшой, и так может продолжаться бесконечно.
Если уменьшится, то можно попробовать сделать то, что написано в условии, и посмотреть, когда всё закончится.
//PascalABC.NET 3.0
begin
write(ReadSeqInteger(10).Average)
end.
Я |
з |
ы|.....|а|.......|п
капи|л|ято|р
.........|г|.......|о
.........|а|.......|г
.........|р|......|р
.........|и|......|а
.........|т|.......|м
.........|м|......|м
....................|а
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadInteger('a=');
Writeln(1.To(a).Aggregate(int64(1),(p,q)->p*q))
end.
<u>Пример</u>
a= 20
2432902008176640000