143511₈ = 1×8⁵+4×8⁴+3×8³+5×8²+1×8¹+1×8⁰
143511₁₆ = 1×16⁵+4×16⁴+3×16³+5×16²+1×16¹+1×16⁰
Применимость алгоритма для некоторого класса задач, различающихся лишь исходными данными
Var a,b,c,A1,B1,C1,S:real;
begin
write('введите угол c => ');
readln(c);
write('введите угол b => ');
readln(b);
write('введите сторону A1 => ');
readln(A1);a:=180-(b+c);
writeln('угол а =',a);
B1:=(sin(b)*A1)/sin(a);
writeln('сторона В=',B1);
C1:=sin(c)*A1/sin(a);
writeln('сторона C=',C1);
S:=0.5*B1*C1*sin(a);
writeln('площадь s=',s);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(10);
Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Пример</u>
342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600
1) Так как сказано: "<span>предшествующего И предыдущего</span>", то начальный и конечный элементы массива не рассматриваются.
2) Сначала создаётся массив содержащий цифры числа, после чего происходит поиск индекса наибольшего числа. Метод Array.Reverse() переворачивает массив.
Решения в прикреплении так как при вставке кода пропадает вся табуляция.