1. Изучите приведенную таблицу расхода электроэнергии домашними бытовыми приборами (стандартный набор) за один календарный месяц. ответьте на вопросы. і DS =BScsS851 30 1 количество дней в месяце: 2 перевод в кВт: 1000 3 Стандартный набор Врезня потребленная мощность работы в Уолность за месяц кВт в месяц (Вт) день (часов) (Вт в месяц) 400 24 288000 288 600 3 $4000 54 400 3 36000 36 1070 0.3 16050 16.05 670 2 5 Холодильник 6 Компьютер 7 Телевизор в Стиральная машина Всё остальное (чайник 2 электрический. лампочки, утюг...) 1. Дополнительный комфорт 11 Кондиционер 2 Посудомоечная машина 13 Микроволновая печь 14 Зарядки для гаджетов 15 Итого: 40200 40.2 1700 0,75 38250 38.25 340 2 20400 20,4 400 6000 6 0,5 0.75 420 9450 508350 9.45 508,35
Алгоритм оказания первой что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.Обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).Проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. Для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. Для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. Для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.
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.
Пример работы программы:
Введите текст на русском языке: Дан произвольный текст на русском языке. Написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой. дан произвольный текст на русском языке. написать программу, которая выводит слова, начинающиеся на согласную и заканчивающиеся гласной буквой. на программу которая слова начинающиеся на согласную заканчивающиеся
