Вопрос пользователя:
мальчик решил почистить аквариум. начал с переселения рыб в банку. семейство рыб составляла 30 штук. первую рыбку он поймал за 5 секунд и 2 секунды потратил на переклатывание. но чем меньше становлось рыбок, тем труднее их было поймать. на каждую следующую рыбку он тратил на 5% времени больше, чем на предыдущую. постройте модель переселения рыбок
Илюха отвечает:
var a:array [1..30] of integer;
i:integer;
BEGIN
for i := 1 to 30 do
begin
a[i]:= 5+5*0.05*(i-1)+2;
writeln(a[i]);
end.
END.