Написать код программы на PascalABC
Составить алгоритм и программу для вычисления g и m.
[tex]m= 9.8 \frac{c-a}{a-c} cos^{2} ( \alpha 1- \alpha 1 ^{2}) [/tex]
[tex] \alpha 1=3.14 \frac{ \alpha }{180} [/tex]
[tex]g=4+(c-a) ^{2} [/tex]
Исходные данные:a=30° c=13 a= -18

var alfa, a1, c, a, g, m, cs : real;beginalfa:=30;c:=13;a:=-18;g:=4+(c-a)*(c-a);a1:=3.14*alfa/180;cs:=cos(a1-a1*a1);m:=9.8*(c-a)*(a-c)*cs*cs;writeln('g = ',g,'  m = ',m);end.Результат:g = 965  m = -8843.80431485503