Практичекая по информатики. 1. какие значения будет принимать величина- счетчик при выполнении следующего цикла: от f=100 до 1000 шаг a 2. количество рыбы в реке, в которую сбрасывались загрязнения, ежегодно сокращалось на 20%. определить, через сколько лет в реке почти не останется (ее количество будет меньше 1) рыбы? извеcтно, что до начала загрязнения ее было n особей.
var N,y:integer;
begin
readln(N);
while N>0 do
begin
N:=N - (N div 5);
y:=y+1;
end;
writeln(y);
end.