Первая при обмороке по пунктам Первым шагом при потере сознания человека необходимо уложить на кровать или на любую гладкую поверхность. При этом его голова должна находиться на одном уровне с телом и даже ниже. Нужно это для того, чтобы приток крови к мозгу несколько увеличился. Человеку необходимо обеспечить нормальное дыхание. Для этого нужно открыть окно и впустить в помещение свежий воздух, расстегнуть воротник, пояс и любую стесняющую тело одежду. Тело человека необходимо утеплить, а к ногам положить грелки. Конечности, спину и грудную клетку нужно растереть спиртом или водкой. Если под рукой этих средств не имеется, растереть можно просто сухими руками. Если имеется нашатырный спирт, смочить им ватку и поднести к носу потерявшего сознание. Делать это нужно через каждые 10 секунд. Если нашатырного спирта нет, воспользуйтесь уксусом, луковым соком и любым другим средством с резким запахом. Первая при обмороке также заключается в орошении лица холодной водой и легкие похлопывания по щекам. После того, как первая при обмороке проведена и человек пришел в себя, ему необходимо дать выпить сладкий чай или кофе, 10-15 капель валокордина на 1/4 стакана воды или 20-30 капель валерианы.
Язык программирования Pascal ABC var n,k,i,j,d,c:integer; label 1,2; begin 1:writeln('Количество месяцев в календаре планеты Мульти:'); readln(n); if (n>109)or(n<1) then begin writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.'); goto 1; end; 2:writeln('Номер дня на который приходится первое число первого месяца нового года:'); readln(k); if (k>7)or(k<1) then begin writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.'); goto 2; end; d:=k; for i:=1 to n do begin for j:=1+(k-1) to 30 do begin if (d=5)and(j=13) then c:=c+1; d:=d+1; if d>7 then d:=1; end; k:=1; end; writeln('Количество несчастливых дней в этом году: ',c); end.
Первая при обмороке по пунктам Первым шагом при потере сознания человека необходимо уложить на кровать или на любую гладкую поверхность. При этом его голова должна находиться на одном уровне с телом и даже ниже. Нужно это для того, чтобы приток крови к мозгу несколько увеличился. Человеку необходимо обеспечить нормальное дыхание. Для этого нужно открыть окно и впустить в помещение свежий воздух, расстегнуть воротник, пояс и любую стесняющую тело одежду. Тело человека необходимо утеплить, а к ногам положить грелки. Конечности, спину и грудную клетку нужно растереть спиртом или водкой. Если под рукой этих средств не имеется, растереть можно просто сухими руками. Если имеется нашатырный спирт, смочить им ватку и поднести к носу потерявшего сознание. Делать это нужно через каждые 10 секунд. Если нашатырного спирта нет, воспользуйтесь уксусом, луковым соком и любым другим средством с резким запахом. Первая при обмороке также заключается в орошении лица холодной водой и легкие похлопывания по щекам. После того, как первая при обмороке проведена и человек пришел в себя, ему необходимо дать выпить сладкий чай или кофе, 10-15 капель валокордина на 1/4 стакана воды или 20-30 капель валерианы.
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.