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
1. 4+1 = 5 (7)
2. 5*2 = 10 (8)
3. 10+1 = 11 (7)
4. 11*2 = 22 (8)
5. 22+1 = 23 (7)
6. 23*2 = 46 (8)
7. 46+1 = 47 (7)
8. 47*2 = 94 (8)
Решаем выражение, полученное значение переводим из десятичной системы в троичную и считаем количество "2"
Var N, F, i :integer;
begin
writeln('введите число');
ReadLN(N);
F:=1;
for i:=1 to N do F:=F*N;
write('факториал числа ',N,' = ',F);
end.