1) "Алфавитный подход" - 14 разных симв. (включая пробел), => На 1 симв. -
=
бита
17 симв * 4 бита = 68 бит
2) 35 Разных симв. => На 1 симв. -
=
Бит
10 Симв. * 6 Бит = 60 Бит
3) 3(Стр.) * 40(Строк) * 25(Симв) = 3000 Символов всего, ответ 3000 * i, где i - количество бит для записи одного символа (Информации об алфавите в последнем номере не указано, посчитайте сами аналогично 1 и 2).
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(10,-15,15); a.Println;
var min:=a[0]; var max:=min;
foreach var e in a do
if e<min then min:=e
else
if e>max then max:=e;
Writeln('min=',min,', max=',max);
end.
<u><em>Тестовое решение:</em></u>
-4 -3 3 -9 15 11 4 15 -11 10
min=-11, max=15
На первый вопрос:
1.Химические
2.Психофизические
3.Физические
На второй вопрос:
ИКТ-технологии для информационной<span> среды системы образования
</span>На третий вопрос:
Санитарно-эпидемиологические правила и нормативы устанавливают санитарно-эпидемиологические требования к размещению, устройству, оборудованию, содержанию, противоэпидемическому режиму, профилактическим и противоэпидемическим мероприятиям, условиям труда персонала, организации питания пациентов и персонала медицинских организаций.
На четвертый вопрос:
Гигиенические нормативы — установленные исследованиями допустимые максимальные или минимальные количественные и (или) качественные значения показателя, характеризующего тот или иной фактор среды обитания с позиций его безопасности и (или) безвредности для человека.
На пятый вопрос:
технические требования это требования которые нужно использовать при работе с техникой , монитор даёт плохое влияние ( лучами) на глаза и мозг облучая их .
Могу только на паскале
program poisk;
const
N=12;
var
C:array [1..N] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to N do
read(C[i]);
for i:=1 to N do
if i mod 2 <> 0 then
k:=k+1;
writeln('Кол-во нечетных чисел='k)
end.
Только пробел между const и a надо поставить
<span>const a:array[1..3]of integer=(12,7,58);
тогда правильно </span>
