Первая при обмороке по пунктам Первым шагом при потере сознания человека необходимо уложить на кровать или на любую гладкую поверхность. При этом его голова должна находиться на одном уровне с телом и даже ниже. Нужно это для того, чтобы приток крови к мозгу несколько увеличился. Человеку необходимо обеспечить нормальное дыхание. Для этого нужно открыть окно и впустить в помещение свежий воздух, расстегнуть воротник, пояс и любую стесняющую тело одежду. Тело человека необходимо утеплить, а к ногам положить грелки. Конечности, спину и грудную клетку нужно растереть спиртом или водкой. Если под рукой этих средств не имеется, растереть можно просто сухими руками. Если имеется нашатырный спирт, смочить им ватку и поднести к носу потерявшего сознание. Делать это нужно через каждые 10 секунд. Если нашатырного спирта нет, воспользуйтесь уксусом, луковым соком и любым другим средством с резким запахом. Первая при обмороке также заключается в орошении лица холодной водой и легкие похлопывания по щекам. После того, как первая при обмороке проведена и человек пришел в себя, ему необходимо дать выпить сладкий чай или кофе, 10-15 капель валокордина на 1/4 стакана воды или 20-30 капель валерианы.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4);
Println(4*a.ColCount*'-');
var i:=ReadInteger('Укажите номер столбца (счет от 1):');
if i.InRange(1,a.ColCount) then
begin
var col:=a.Col(i-1);
Println('Сумма элементов столбца',col.Sum,'max=',col.Max)
end
else
Println('Недопустимый номер колонки')
end.
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