Var
a:integer;
begin
read(a);
while(a <> 0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
1я непонятная операция, это i = AB с чертой, это сказанное произведение векторов скорее всего, A B - это вектора, следующая непонятная операция это mod проверяет делится ли число с остатком или нет, если a mod b =0, а делится на б без остатка, вот
Var
a: array[1..10]of integer;
i, k, n: integer;
begin
Writeln('Исходный массив:');
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(51) - 25;
Write(a[i], ' ');
end;
Writeln;
n := 0;
k := 0;
for i := 10 downto 1 do
if a[i] > 0 then
begin
k := k + 1;
if k = 2 then n := i;
end;
if k = 0 then
Writeln('В массиве нет положительных элементов!')
else
Writeln('Предпоследний положительный элемент: a[', n, '] = ', a[n]);
Readln;
end.
Ожог:
1. Убрать поражающий фактор.
2. Охладить место ожога.
3. Накрыть влажной повязкой.
4. Покой и противошоковые меры.
Обморок:
1. Если дыхательные пути свободны, пострадавший дышит и у него прощупывается пульс (слабый и редкий), его необходимо уложить на спину и приподнять ноги.
2. Расстегнуть сдавливающие части одежды.
3. Положить на лоб пострадавшего мокрое полотенце.
4. При рвоте пострадавшего необходимо перевести в безопасное положение или хотя бы повернуть голову набок, чтобы он не захлебнулся рвотными массами.
Остановка дыхания:
1. Непрямой массаж сердца.
2. Искусственная вентиляция легких.
3. Закрытие дыхательных путей инородным телом.