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