простая программа

[stap]

Количество рыбы в реке, в которую сбрасывались загрязнения, ежегодно сокращается на 20%. Определите, через сколько лет рыбы в реке почти не останется (ее количество станет меньше 1).

[VIK_aka_TOR]

var
n : real;
i: integer;
begin
    write('Введите количество рыбы ');
    readln(n);
    i:=0;
    while n >= 1 do
          begin
          n:=n*0.8;
          inc(i);
          end;
    writeln('Через ',i,' год(лет) останется рыбы ', n);
end.

не забываем жать весы... и оставлять положительный отзыв

[Serge_Bliznykov]

А Вы уверены, что количество рыбок должно быть ВЕЩЕСТВЕННЫМ числом?

Введите количество рыбы
9
Через 1 год(лет) останется рыбы 7.200
Через 2 год(лет) останется рыбы 5.760
Через 3 год(лет) останется рыбы 4.608
Через 4 год(лет) останется рыбы 3.686
Через 5 год(лет) останется рыбы 2.949
Через 6 год(лет) останется рыбы 2.359
Через 7 год(лет) останется рыбы 1.887
Через 8 год(лет) останется рыбы 1.510
Через 9 год(лет) останется рыбы 1.208
Через 10 год(лет) останется рыбы 0.966

Что, если в этом году плавает 9 рыбок, то в следующем будет плавать 7.2 рыбки, а ещё через год - 5.76... мне вообще страшно представить, когда плавает 76 сотых рыбки, которое, к тому же, учитывается в качестве живой (20% убираем именно исходя из этого числа - с десятыми и сотыми целой рыбы)? А если в этом году плавает 1.887 рыбки, то на следующий год ещё не всё потеряно, в пруду останется 1.51 рыбки. но и это ещё не конец. в следующем году останется 1.2 рыбки.. и только после этого наступит полный капец рыбкам...
имхо, это нелогично (а следовательно, неверно!)

[VIK_aka_TOR]

какое задание такое и решение... остается меньше 1 рыбы... половинка? четвертинка?

А Вы уверены, что количество рыбок должно быть ВЕЩЕСТВЕННЫМ числом?

ничего об этом не говорилось.. каким числов.. возможно рыбки это лишь для большего понятия поставленой задачи... как в детском саду яблоки и конфеты)