var a,b,c,x:integer; begin x:=0; Read(a,b,c); if a mod 2=0 then x:=x+1 if b mod 2=0 then x:=x+1; if c mod 2=0 then x:=x+1; Writeln('Chetnuh chisel =' ,x); end.
На сегодняшний день компьютеры стали очень важной частью, скажем даже инструментом, в разных сферах медицинской деятельности. С компьютерных технологий медицина стала развиваться, совершенствоваться, что обеспечило высокую точность исследований, данных и результатов работы. Сейчас в ногу с современностью старается шагать каждое учреждение, потому как это не только новые технологии, но увеличенное количество пациентов. Медицина собой представляет очень сложную науку, где даже самый профессиональный специалист может допустить ошибку, в результате чего сложно поставить диагноз. В этом случае свою роль сыграет компьютерная которая намного облегчит работу врача. Благодаря такой можно получить точный диагноз и за короткий период времени. То, что последнее слово всегда за врачом, это конечно, безусловно, но компьютер ускорить процесс принятия решения, которое здоровье, а иногда и жизнь человека. Современные медицинские заведения давно перешли от бумажной работы к компьютерной, что бы врачи могли больше уделить времени и внимания пациенту, нежели бумажной работе. Все данные по пациентам занесены в компьютер, таким образом, работа не стоит на месте, медицинские учреждения процветают, а пациенты выздоравливают. Кроме этого, компьютерные технологии врачам проводить различные медицинские обследования, вплоть до исследования внутренних органов человека. Еще компьютеры позволяют установить, на сколько сильно влияет загрязненный воздух на заболеваемость людей в том или ином районе населенного пункта. Также компьютерные технологии очень большую роль играют в медицинских исследованиях. Например, при компьютера можно изучить последствия удара для позвоночника или черепа головы человека, или всего скелета человеческого в целом, скажем, после автомобильной аварии. Компьютерные технологии также заработали себе отличную репутацию в отрасли, связанной с донорскими органами, которые необходимы пациентам для трансплантации. Сюда же можно и отнести обучение медработников, что тоже имеет большое значение в работе медицины. Это происходит в виде «игры», компьютер выступает в виде пациента, а медработник согласно выданным симптомам должен поставить диагноз и назначить курс лечения. Если же врач сделал ошибку, компьютер сразу же об этом оповестит и укажет место этой ошибки. Компьютерные технологии используются и в эпидемиологических службах, для того, чтобы составить эпидемиологическую карту, которая позволит следить за скоростью и определять направление распространения вируса. Поэтому можно смело сказать о том, что компьютерная это довольно таки необходимый инструмент в работе медработников. Говорить о том, что компьютерные технологии очень важны в медицине можно очень долго, но последнее решение всегда будет оставаться за эмоциональным компьютером – человеком.
Var a,b,c,d:integer; begin writeln('Введите 4 числа через пробел'); readln(a,b,c,d); if (a>0)and(b>0)and(c>0)and(d>0) then writeln('Все числа положительные') else if ((a<0)and(b>0)and(c>0)and(d>0))or((a>0)and(b<0)and(c>0)and(d>0))or((a>0)and(b>0)(c<0))or((a>0)and(b>0)and(c>0)and(d<0)) then writeln('3 числа положительные') else if ((a<0)and(b<0)and(c>0)and(d>0))or((a<0)and(b>0)and(c<0)and(d>0))or((a<0)and(b>0)and(c>0)and(d>0))or((a<0)and(b>0)and(c>0)and(d<0))or((a>0)and(b<0)and(c<0)and(d>0))or((a>0)and(b<0)and(c>0)and(d<0))or((a>0)and(b>0)and(c<0)and(d<0)) then writeln('2 числа положительных'); else if ((a>0)and(b<0)and(c<0)and(d<0))or((a<0)and(b>0)and(c<0)and(d<0))or((a<0)and(b<0)and(c>0)and(d<0))or((a<0)and(b<0)and(c<0)and(d>0)) then writeln('1 положительное число') else if (a<0)and(b<0)and(c<0)and(d<0) then writeln('Нет положительных чисел'); readln end.
var a,b,c,x:integer;
begin
x:=0;
Read(a,b,c);
if a mod 2=0 then x:=x+1
if b mod 2=0 then x:=x+1;
if c mod 2=0 then x:=x+1;
Writeln('Chetnuh chisel =' ,x);
end.