Алгоритм оказания первой что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.Обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).Проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. Для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. Для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. Для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0); if TryStrToFloat(s,x) then if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5 then Writeln('Сумма цифр заканчивается на 5') else Writeln('Сумма цифр не заканчивается на 5') else Writeln('Неверное представление числа') end.
Примеры Введите число, можно нецелое: -3532175 Сумма цифр не заканчивается на 5
Введите число, можно нецелое: 0.02432413 Сумма цифр не заканчивается на 5
Введите число, можно нецелое: -13.05360214 Сумма цифр заканчивается на 5
Введите число, можно нецелое: 1.23007e-31 Сумма цифр не заканчивается на 5
