<span>Программа для создания презентаций, являющаяся частью M</span>icrosoft Office<span> и доступная в редакциях для операционных систем Windows</span><span> и Mac OS</span><span>. Материалы, подготовленные с помощью PowerPoint предназначены для отображения на большом экране — через проектор</span><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
До двадцяти п'яти додати різницю чисел тринадцяти відняти сім і поділити на два.
С целыми числовыми типами данных Паскаля можно выполнять следующие операции:
Арифметические:
сложение(+);
вычитание(-);
умножение(*);
остаток от деления (mod);
возведение в степень;
унарный плюс (+);
унарный минус (-).
Операции отношения:
отношение равенства (=);
отношение неравенства (<>);
отношение меньше (<);
отношение больше (>);
отношение не меньше (>=);
отношение не больше (<=).
✓Возможное переполнение результата никак не контролируется (это важно!), что может привести к ошибкам.