климат 1. создайте таблицу размером 9 × 5. 2. преобразуйте таблицу к следующему виду : (файл будет прикреплен) 3. занесите в таблицу следующую информацию, представленную в текстовой форме (информация за 2004 г.): в марий-эл количество осадков в июле составило 79 мм. в пермской области средняя температура в июле была +18 град. в красноярском крае средняя температура в январе была –18 град. в московской области количество осадков в январе составило 45 мм. в оренбургской области средняя температура в январе была –11 град. в удмуртии количество осадков в июле составило 61 мм. в марий эл количество осадков в январе составило 26 мм. в оренбургской области средняя температура в июле была +21 град. в красноярском крае количество осадков в июле составило 55 мм. в оренбургской области количество осадков в январе составило 35 мм. в пермской области количество осадков в январе составило 52 мм. в марий эл средняя температура в январе была –10 град. в оренбургской области количество осадков в июле составило 89 мм. в московской области средняя температура в июле была +20 град. в удмуртии средняя температура в январе была –13 град. в красноярском крае количество осадков в январе составило 36 мм. в удмуртии средняя температура в июле была +19 град. в московской области количество осадков в июле составило 66 мм. в удмуртии количество осадков в январе составило 41 мм. в пермской области количество осадков в июле составило 45 мм. в марий эл средняя температура в июле была +20 град. в красноярском крае средняя температура в июле была +17 град. в пермской области средняя температура в январе была –14 град. в московской области средняя температура в январе была –8 град. 4. сохраните таблицу в личной папке под именем климат.
var t:real;
begin
t:=ArcTan(Sqrt(1-x*x)/x);
if x<0 then ArcCos:=t+Pi
else ArcCos:=t
end;
var
a,b,c,p,p2,s,alpha,beta,gamma,h:real;
begin
Read(a,b,p);
c:=p-a-b;
p2:=p/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
h:=a*Sin(beta);
alpha:=alpha*180/Pi;
beta:=beta*180/Pi;
gamma:=180-alpha-beta;
Writeln('c=',c);
Writeln('alpha=',alpha:0:2,', beta=',beta:0:2,', gamma=',gamma:0:2);
Writeln('S=',s,', h=',h)
end.