var
n, i, k: integer;
a, b: real;
begin
read(n, a);
k := 0;
for i := 1 to n do
begin
read(b);
if (b < a - 8) or (b > a + 8) then
k := k + 1;
end;
if k > 0 then
write(k)
else
write('нет');
end.
- Регистрирование, накопление новых понятий медицины и их взаимосвязей с накопленными знаниями
- обновление, и дополнение существующий понятий медицины
- обработка, копирование и распространения зананий об медицинских понятиях между мед специалистами
- сбор, обработка и анализ статистики о заболеваниях, лекарствах
- выявление ложных, неактуальных заболеваний, понятий и их обработка
- создание и использования спец протоколов для передачи информации о заболеваниях и пр. между мед учреждениями
IDE Это внутренний порт нрасположенный на материнской плате
<span>Программа выводящая одно число: сумму всех чисел , кратных 4 и оканчивающихся на 6.</span>
0,00025 кбайт = 0,25 байт = 2 бит