Const n=4; { любое число N от 1 до 100000}
var a:array [1..n] of integer;
b,min,max, s:integer;
proizvedenie:real;
beginwriteln('Введите n чисел');
for b:=1 to n do read (a[b]);
for b:=1 to n do
write(a[b],' ');
min:=a[1];
max:=0;
for b:=1 to n do
begin
if a[b]>max then max:=a[b];
if a[b]<min then min:=a[b];
end;
proizvedenie:=max-min;
writeln;
writeln('minimum ',min,' ','maximum ',max,' Proizvedenie= ',proizvedenie); readln;
<span>end.</span>
Для перевода чисел из двоичной в восьмеричную систему счисления двоичное число делят на группы по 3 разряда (в целой части - справа налево, в дробной - слева направо) и каждую группу заменяют на соответствующую ей восьмеричную цифру.
110000110101(2) = 110 000 110 101(2) = 6065(8)
1010101(2) = 1 010 101(2) = 125(8)
0,10100111001(2) = 0,101 001 110 010(2) = 0,5162(8)
0,1111110001(2) = 0,111 111 000 100(2) = 0,7704(8)
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>
var x: real;
begin
readln(x);
write(5*power(x,3)+0.5-3*power(x,2));
end.
P.s power(x,y) - это функция, которая возводит число x в степень y.
5)
найдем: A2 Б2 С2 Д2
18 2 2 ?
по рисунку видно,что 3 одинаковых кусочка,следовательно,ищем 2
это номер 2) 1+1=2
ответ:2
6) в данном случае считаем у 3 последних точек абсциссы и ординаты
(-1;0) ; (2;-2) ; (3;4)
-1+2+3=4
0-2+4=2
(4;2) и теперь надо эту точку повторить 3 раза
т.е умножаем на 3
(12;6)
ответ:(12;6)
(прошу отметить как лучшее,очень нужно,спасибо))