Задача 1 Больной К- 20 лет доставлен в больницу машиной «скорой с вокзала на 2-й день болезни с диагнозом «менингит?», «сыпной тиф?». Заболел остро: температура до 40°С, повторная рвота, резкая головная боль. Сознание спутано. На конечностях и меньше на теле - геморрагическая сыпь, отдельные некрозы. В легких дыхание везикулярное. Язык обложен белым налетом. Живот мягкий, безболезненный. Печень и селезенка не увеличены. Выражены ригидность затылочных мышц и симптом Дернига. 1. Ваш диагноз? 2. Что необходимо предпринять для уточнения диагноза? 3. Есть ли основания думать о СТ? Задача №2. Больная 3:, 70 лет заболела остро 30.11. Вечером повысилась температура до 39, 6°С, появилась головная боль в лобно-височных областях, головокружение, ломота во всем теле, заложенность носа, сухой болезненный кашель, царапающая боль за грудиной. На следующий день температура поднялась до 41°С, не могла подняться с постели, смотреть на свет. Отмечала плохой сон, отсутствие аппетита. Вызвала участкового врача. Врач отметил гиперемию лица, инъекцию сосудов склер, покраснение и зернистость слизистых мягкого неба. Дыхание через нос затруднено, в легких дыхание жесткое, хрипы не выслушиваются. Со стороны сердечно-сосудистой системы отмечается небольшая гипотония (АД 140/90мм рт.ст.), пульс 96 уд/мин при температуре 40°С. Язык суховатый, слабо обложен белым налетом. Живот мягкий, безболезненный во всех отделах. Печень и селезенка не увеличены. Дизурических явлений нет. Менингеальные знаки не выявляются. Эпиданамнез. Приехала из Молдавии. В дороге был контакт с соседкой по купе, больной гриппом. Во время войны перенесла сыпной тиф. • О каком заболевании следует думать? • Есть ли данные за СТ? • Что следует предусмотреть в плане обследования?
Ответы
program string_2;
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
Writeln ('Введите строку:'); Readln(s);
i:=1; ns:=1; otv:=''; s:=s+' ';
while i<=Length(s) do
begin
while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
m:=Length(slovo) div 2; {половина длины слова}
if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
{если слово имеет четную длину}
then otv:= otv+slovo+ ','; {добавляем слово к ответу}
while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
ns:=i; {начало следующего слова}
end;
Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
Writeln(otv);
Readln
end.
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
Writeln ('Введите строку:'); Readln(s);
i:=1; ns:=1; otv:=''; s:=s+' ';
while i<=Length(s) do
begin
while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
m:=Length(slovo) div 2; {половина длины слова}
if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
{если слово имеет четную длину}
then otv:= otv+slovo+ ','; {добавляем слово к ответу}
while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
ns:=i; {начало следующего слова}
end;
Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
Writeln(otv);
Readln
end.
program string_2;
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
Writeln ('Введите строку:'); Readln(s);
i:=1; ns:=1; otv:=''; s:=s+' ';
while i<=Length(s) do
begin
while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
m:=Length(slovo) div 2; {половина длины слова}
if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
{если слово имеет четную длину}
then otv:= otv+slovo+ ','; {добавляем слово к ответу}
while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
ns:=i; {начало следующего слова}
end;
Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
Writeln(otv);
Readln
end.
var s, slovo, otv:String; ns, ks, i, m: Integer;
begin
Writeln ('Введите строку:'); Readln(s);
i:=1; ns:=1; otv:=''; s:=s+' ';
while i<=Length(s) do
begin
while (i<=Length(s)) and (s[i]<>' ') do i:=i+1; {ищем очередной пробел}
ks:=i; slovo:=Copy(s, ns, ks-ns); {выделяем слово}
m:=Length(slovo) div 2; {половина длины слова}
if (Length(slovo) mod 2=0) and (Copy(slovo,1,m)=Copy(slovo,m+1,m))
{если слово имеет четную длину}
then otv:= otv+slovo+ ','; {добавляем слово к ответу}
while (i<=Length(s)) and (s[i]=' ') do i:=i+1; {пропускаем пробелы}
ns:=i; {начало следующего слова}
end;
Delete(otv, Length(otv), 1); {удаляем лишнюю запятую в конце}
Writeln(otv);
Readln
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Озеленена територія призначена для відпочинку
Автор: Petrakova Ilyushin
Як називає Гітчі маніто індіанців? Поясніть це звертання.
Автор: Александра Викторович531
Объясните взаимосвязь компонентов в этой экосистеме.
Автор: dmitrijku
дай фото задания
Объяснение: