Балхаш — красивейшее озеро, расположенное на востоке Казахстана. Площадь его составляет примерно 16393 кв. км, что делает его самым крупным озером, расположенным на территории Казахстана. Максимальная глубина озера — 25 м, а общий объём воды — не более 120 куб. км. Живописный берег озера, имеющего форму полумесяца, тянется на 2305 м. Озеро делится на две части полуостровом Сарыесик, расположенным примерно посередине озера. Западная его часть более мелководная и практически пресная, восточная глубже и имеет солёную воду. Бассейн озера — огромная экосистема, охватывающая около 413989 кв. км. Фауна озера очень богата, но с 1970 года началось снижение биоразнообразия из-за ухудшения качества воды. Освоение земель, выпас скота, применение пестицидов в сельском хозяйстве плохо влияют на экологическую обстановку в озере. Общая мировая тенденция к обмелению водоёмов касается также и этого прекрасного озера. Экологи считают, что обмеление даже на 1 см может привести к сильным экологическим катаклизмам в его районе, в частности повышению уровня солёности воды, что приведёт к исчезновению некоторых представителей флоры и фауны озера. Есть планы строительства на озере Балхаш новых санаториев. Использование солёной воды озера для создания огромных бассейнов на открытом воздухе сулит большие перспективы для оздоровления гостей. Таких бассейнов планируется построить 57, и каждый из них в течение года будет забирать около 14000 кубических метров воды в месяц только на своё содержание. Определи, насколько существенно может повлиять такое водопользование без принятия мер по водовосполнению, если такой санаторий будет работать непрерывно в течение 4 лет. В ответе дай падение уровня воды, округлённое до десятитысячных, и сделай вывод, повлияет ли создание санаториев ощутимо на уровень воды в озере Балхаш. Падение уровня воды составит метров, оно существенно (повлияет или не повлияет)
Решение не обязательно можно просто ответ :')
program one;
uses crt;
var A: array [1..6] of integer;
i,k,Amin,Amax,S: integer;
begin
readln (A[i]);
Amax:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]>Amax then begin
k:=i;
Amax:=A[i];
end;
end;
Amin:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]<Amin then begin
k:=i;
Amin:=A[i];
end;
end;
S:=0;
for i:=1 to 6 do begin
if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then
S:=S+A[i];
end;
writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S);
end.
2)
program two;
uses crt;
var x,a,b,i,n: integer;
y: real;
begin
readln (a,b,i,n);
x:=a;
repeat
if -2<=x<=2 then
y:=sqr(x)-1
else
y:=sqrt(x-1);
writeln (y:3:4);
i:=i+n;
until x>=b;
end.
program one;
uses crt;
var A: array [1..6] of integer;
i,k,Amin,Amax,S: integer;
begin
readln (A[i]);
Amax:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]>Amax then begin
k:=i;
Amax:=A[i];
end;
end;
Amin:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]<Amin then begin
k:=i;
Amin:=A[i];
end;
end;
S:=0;
for i:=1 to 6 do begin
if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then
S:=S+A[i];
end;
writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S);
end.
2)
program two;
uses crt;
var x,a,b,i,n: integer;
y: real;
begin
readln (a,b,i,n);
x:=a;
repeat
if -2<=x<=2 then
y:=sqr(x)-1
else
y:=sqrt(x-1);
writeln (y:3:4);
i:=i+n;
until x>=b;
end.