729 728 364 182 91 90 45 44 22 21 20 19 18 17
1 1 1 1 1 2 1 2 1 2 2 2 1
1) Вычисляем длины всех его сторон
<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(15,-50,50).Println.Average.Println
end.
<u>Пример</u>
10 -46 20 -5 -23 -27 -16 26 42 -28 -24 -25 20 49 -27
-3.6
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
В какой среде работаешь? каккая программа уточни ато никто не ответит .