<span>1. B)
1;</span>
<span>2. B)
вопрос;</span>
3. С) трекант;
<span>
</span>
Const
nm = 50;{максимальная размерность вектора}
var
i, n: integer;
x: array[1..nm] of real;
s: real;
begin
Write('Введите размерность вектора n -> ');
Readln(n);
Write('Вводите координаты вектора через пробел ');
s := 0;
for i := 1 to n do
begin
Read(x[i]);
s := s + sqr(x[i])
end;
Writeln('Длина вектора равна ', sqrt(s):0:4)
end.
Тестовое решение:
Введите размерность вектора n -> 7
Вводите координаты вектора через пробел -3.54 0.532 2.6 12 -3 0 1.47
Длина вектора равна 13.2188
2AF1(16)(выставляем разряд справа налево начиная с 0)=2*16^3+10*16^2+15*16^1+1*16^0=40960+2560+240+1=43761(10)
В скобкаэ система счисления,после знака ^ степень
Function Transform(n:longint):longint;
Var
k,B:longint;
Begin
B:=n;
k:=1;
While B <> 0 do
Begin
k:=k*10;
WriteLn('k = ',k);
B:=B div 10;
End;
if n >= 0 then
Begin
WriteLn('n:= k + n = ',k,' + ',n,' = ',n+k);
WriteLn('n:= 10*n + 1 = ',10*(k+n),' + ',1,' = ',(k+n)*10+1);
Transform:=(k+n)*10+1
End;
End;
Var
A:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
WriteLn(Transform(A))
End.