Алгоритм оказания первой что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.Обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).Проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. Для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. Для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. Для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.
Var Text,S:string; n,k:boolean; i:integer; Begin Write('Введите текст на русском языке: ');ReadLn(Text); Text:=LowerCase(Text)+' '; // перевоит текст в нижний регистр WriteLn(Text); // показывает действие предыдущей строки For i:= 1 to Length(Text) do Begin if ('а' <= Text[i])and(Text[i] <= 'я')or(Text[i] = 'ё') then S:=S+Text[i] // записываем русские буквы в S else // как только встречаем другой символ, проверяем, if Length(S) > 0 then // есть ли в S хоть одна буква, Begin // и если есть, то проверяем условие задачки, и выводим слово на экран, если оно истинно if (S[1] in 'бвгджзйклмнпрстфхцчшщ')and(S[Length(S)] in 'аоэиуыеёюя') then WriteLn(S); S:=''; // далее обнуляем S End; End; End.
Пример работы программы:
Введите текст на русском языке: Дан произвольный текст на русском языке. Написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой. дан произвольный текст на русском языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой. на программу которая слова начинающиеся на согласную заканчивающиеся
program zaharmaenkraft;
const n = 10;
type mas = array [1..n, 1..n] of integer;
var a: mas;
i, j, summa1, summa2: integer;
begin
writeln('Дан двумерный массив размерностью 10 на 10. Определить:');
writeln('1) сумму элементов главной диагонали массива;');
writeln('2) среднее арифметическое элементов главной диагонали;');
writeln('3) среднее арифметическое элементов побочной диагонали.');
writeln;
writeln('Созданный массив:');
for i := 1 to n do
for j := 1 to n do
begin
a[i, j] := random(201) - 100;
write(a[i, j], '; ');
if (j = n) then writeln;
end;
writeln;
summa1 := 0;
summa2 := 0;
for i := 1 to n do
for j := 1 to n do
begin
if (i = j) then summa1 := summa1 + a[i, j];
if (j = n - i + 1) then summa2 := summa2 + a[i, j];
end;
writeln('Сумма элементов главной диагонали массива равна ', summa1);
writeln('Среднее арифметическое элементов главной диагонали равно ', summa1 / n : 0 : 1);
writeln('Среднее арифметическое элементов побочной диагонали равно ', summa2 / n : 0 : 1);
readln;
end.