1) ответ 0,1122
2) ответ 111201
И так остальные вычисляешь
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a:= ArrRandom(n, -99, 99);
a.Println;
var M := ReadInteger('Сколько последних взять?');
if m > n then
Println('Не нужно жадничать!')
else
Println('Сумма', m, 'последних равна', a.TakeLast(m).Sum)
end.
Функция вычисления арктангенса есть. Остальные можно выразить через арктангенс. Пусть х - число которое вводится в приемное поле калькулятора, у - это то, значение, которое мы выводим в поле ответа калькулятора.
1) <span>arcsin
if abs(x)<1 then
y:=arctan(x/sqrt(1-x*x)
else y:=Pi*x;
2) </span><span>arccos
y:=arctan(sqrt(1-x*x)/x);
if x<0 then y:=Pi+y;
3) </span><span>arctg
y:=arctan(x);
4) </span><span>arcctg
</span>if x=0 then y:=Pi else y:=arctan(1/x);<span>
if x<0 then y:=Pi+y;
</span><span>
5) </span><span>n!
y:=1;
for i:=1 to x do y:=y*i;
6) \%
y:=x/100
Следует при проверке иметь ввиду, что арксинус и арккосинус могут быть только в пределах от -1 до 1. Другие значения вводить нельзя. Или надо добавить проверку на корректность входных данных. </span>
! - отрицание (не)
& - умножение (*)