⇢ Вопросы и ответы ⇢ Красота и Здоровье ⇢ Болезни, Лекарства

Андрей Лахурин

ГЕМАТОЛОГИЯ: какой лейкоз? Er,Hb,Tr, бласты-78%!, п/я-1%;с/я-5%;еоз. баз. -0,моноцити2%, лімфоцити12;мієл2

Алексей Рудковский

Острый и скорее всего - недифференцированный лейкоз. Но необходимо исследование костного мозга (стернальная пункция и/или трепанобиопсия).

Похожие вопросы

10.Докажите, что прямая L(система): 5x-3y 2z-5=0 2x-y-z-1=0 лежит в плоскости 4x-3y 7z-7=0.Подскажите как решить...

Решите пожалуйста!!! 1) sin(3x)cos (x-П/6) - sin (x-П/6)cos(3x) = 1/22)4cos^2 x -4sin x - 5 =0

Тригонометрия. корень из 2 * cos (2х - П/5) - 1 = 0

0: 7>2CB 0:B5@0,:>B>@K9 83@05B >1>@>B=O-8=459F0 2 D8;L<5 !C<5@:8. =>2>;C=5? ?>4A:068B5 ?>60;C9AB0!

найдите точку максимума функции у=(5х-1)cos х -5 sin х +1, принадлежащую промежутку (0;п/2)

кто хорошо знает СУБД? 1.Алгоритм создания концептуальной модели баз данных. 2.Алгоритм создания логической модели баз данных. 3.Алгоритм создания физической модели баз данных. 4.Алгоритм анализа и описания предметной области 5.Алгоритм построения ER – диаграммы 6.Алгоритм выбора СУБД для создания базы данных 7.Алгоритм создания БД в СУБД MySQL 8.Алгоритм создания таблиц в СУБД MySQL 9.Алгоритм создания простого запроса в СУБД MySQL 10.Алгоритм импорта данных 11.Алгоритм экспорта данных

Что значит график - 5/2‚6/1‚7/0 у работодателя, т.е. количество рабочих дней, соотв. з/п?

Паскаль переделать прогу из двух в одну. Заранее спасибо! Как можно слепить 2 проги для вычисления студентов одного имени: №1 это запыс групы и их оценок, что нестоль важно, а №2 выбор одного имени №1program Laba5Prog;uses crt;const size=5;typeStudent = recordsurname,ownname,patronym:string;marks:recordsda,math,prog,alg:byte;end;end;typeSimpleGroup=array[1..size] of Student;var Group:SimpleGroup;function GetFromString(var str:string):string;var i:integer; tmpstr:string;begini:=1;while str[i]' ' doinc(i);tmpstr:=copy(str,1,i-1);delete(str,1,i);GetFromString:=tmpstr;end;procedure InFromFile(var Group:SimpleGroup);var f:text;tmpstr:string;i,err:integer;beginassign(f,'lab5.txt');reset(f);i:=1;while not EOF(f) dobeginreadln(f,tmpstr);tmpstr:=tmpstr+' ';Group[i].ownname:=GetFromString(tmpstr);Group[i].surname:=GetFromString(tmpstr);Group[i].patronym:=GetFromString(tmpstr);val(GetFromString(tmpstr),Group[i].marks.prog,err);val(GetFromString(tmpstr),Group[i].marks.sda,err);val(GetFromString(tmpstr),Group[i].marks.math,err);val(GetFromString(tmpstr),Group[i].marks.alg,err);inc(i);end;end;procedure OutData(const OutGroup:SimpleGroup);var i:integer;beginwriteln('NAME':10,'SURNAME':10,'PATRONYM':10,'PROG':5,'SDA':5,'MATH':5,'ALG':5);for i:=1 to size dobeginwriteln(Group[i].ownname:10,Group[i].surname:10,Group[i].patronym:10,Group[i].marks.prog:5,Group[i].marks.sda:5,Group[i].marks.math:5,Group[i].marks.alg:5);end;end; -----------------------------------------------------------------------------------------------------------------------------------------------------_________________________________________________________________________________________-----------------------------------------------------------------------------------------------------------------------------------------------____________________________________________________________________________________№2 Program z1;Uses crt;Typered=record;name,fam:string;end;vara,b:array[1..15] of red;i,j,k,l,n,kol:integer;cn,cf: string;writeln('Eoia ioai?a o?aieeia n iaeiaeiauie eiaiaie e oaieeeyie: ');for i:=1 to n-1 dobeginkol:=0;for j:=i+1 to n doif (a[i].name=a[j].name)thenbeginif l=1 thenbeginb[l].name:=a[j].name;b[l].fam:=a[j].fam;inc(l);end;k:=l;while k0 dobeginif (a[j].name=b[k].name) and (a[j].fam=b[k].fam) thenbegininc(kol);break;end;dec(k);end;if kol=0 thenbeginb[l].name:=a[j].name;b[l].fam:=a[j].fam;inc(l);end;end;end;writeln(b[l].name,' ',b[n-l].fam);for i:=1 to l dowriteln(b[i].name,' ',b[i].fam);end.

В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца (Паскаль) Программа работает неправильно, подскажите как исправитьProgram matr;const N=10;const M=10;var D:array [1..N,1..M] of real;i,j,k:integer;l:real;beginfor i:=1 to n do begin for j:=1 to m do begin D[i,j]:=random(5); if d[i,j]=0 then for k:=i-1 downto 1 do begin l:=d[k+1,j]; d[k,j]:=d[k+1,j]; d[k,j]:=l; end;end;end; for i:=1 to n do begin for j:=1 to m do begin write(D[i,j]:5:2);end; writeln;end; readln;end.