номер 5 (страница 193) гдз по информатике 8 класс учебник Босова, Босова

№ 3
var
A, B, C: real;
years: integer;
begin
writeln('Введите начальный запас рыбы в пруду (в тоннах):');
readln(A);
writeln('Введите годовой план отлова (в тоннах):');
readln(B);
writeln('Введите наименьший запас рыбы (в тоннах):');
readln(C);
years := 0;
while A >= C do
begin
A := A + A * 0.15 - B;
years := years + 1;
end;
writeln('Количество лет: ', years);
end.
№ 4
var
s, a: integer;
k: integer;
begin
s := 0;
a := 5;
k := 0;
while s ‹ 324 do
begin
s := s + a;
a := a + 4;
k := k + 1;
end;
writeln('Количество слагаемых: ', k);
end.
№ 6
program vremja;
var a,x,l:real;
begin
a:=10000;
x:=10000/100*5;
l:=0;
writeln(‘Первоначальная сумма ‘,a,’ рублей’);
while a‹=20000 do
begin
a:=x+a;
l:=l+1
end;
writeln(‘Через ‘,1,’ год первоначальная сумма увеличится в 2 раза’);
end.
№ 7
var
x, v, n: integer;
begin
writeln ('x');
readln (x);
v := 0;
n := 1;
while n ‹ x do
begin
v:=v+3;
n:=n*2;
end;
writeln('Через ', v, ' времени будет ', x, ' амеб');
end.