Для перевода из 10-ой системы счисления в любую другую надо: 1. Последовательно делить целую часть на дробную часть этого числа 2.Последовательно делить целую часть и умножать дробную на нужное нам основание системы счисления 3. Последовательно умножать целую часть и делить дробную часть на нужное нам основание системы счисления Буду очень благодарен!

На сегодняшний день компьютеры стали очень важной частью, скажем даже инструментом, в разных сферах медицинской деятельности. С компьютерных технологий медицина стала развиваться, совершенствоваться, что обеспечило высокую точность исследований, данных и результатов работы. Сейчас в ногу с современностью старается шагать каждое учреждение, потому как это не только новые технологии, но увеличенное количество пациентов. Медицина собой представляет очень сложную науку, где даже самый профессиональный специалист может допустить ошибку, в результате чего сложно поставить диагноз. В этом случае свою роль сыграет компьютерная которая намного облегчит работу врача. Благодаря такой можно получить точный диагноз и за короткий период времени. То, что последнее слово всегда за врачом, это конечно, безусловно, но компьютер ускорить процесс принятия решения, которое здоровье, а иногда и жизнь человека. Современные медицинские заведения давно перешли от бумажной работы к компьютерной, что бы врачи могли больше уделить времени и внимания пациенту, нежели бумажной работе. Все данные по пациентам занесены в компьютер, таким образом, работа не стоит на месте, медицинские учреждения процветают, а пациенты выздоравливают. Кроме этого, компьютерные технологии врачам проводить различные медицинские обследования, вплоть до исследования внутренних органов человека. Еще компьютеры позволяют установить, на сколько сильно влияет загрязненный воздух на заболеваемость людей в том или ином районе населенного пункта. Также компьютерные технологии очень большую роль играют в медицинских исследованиях. Например, при компьютера можно изучить последствия удара для позвоночника или черепа головы человека, или всего скелета человеческого в целом, скажем, после автомобильной аварии. Компьютерные технологии также заработали себе отличную репутацию в отрасли, связанной с донорскими органами, которые необходимы пациентам для трансплантации. Сюда же можно и отнести обучение медработников, что тоже имеет большое значение в работе медицины. Это происходит в виде «игры», компьютер выступает в виде пациента, а медработник согласно выданным симптомам должен поставить диагноз и назначить курс лечения. Если же врач сделал ошибку, компьютер сразу же об этом оповестит и укажет место этой ошибки. Компьютерные технологии используются и в эпидемиологических службах, для того, чтобы составить эпидемиологическую карту, которая позволит следить за скоростью и определять направление распространения вируса. Поэтому можно смело сказать о том, что компьютерная это довольно таки необходимый инструмент в работе медработников. Говорить о том, что компьютерные технологии очень важны в медицине можно очень долго, но последнее решение всегда будет оставаться за эмоциональным компьютером – человеком.

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.