СОСТАВИТЬ БЛОК СХЕМУ РЕШЕНИЯ ЗАДАЧИ Больной принимает за день К единиц лекарственного препарата. Количество лекарственного препарата определяется формулой Х= m*N/ k. Сколько таблеток нужно принимать за день?
А) m=70; N=1,2; k=5
Б) m=68; N=2,5; k=8,4
Где, Х- количество таблеток,
m- вес больного,
N- норма в единицах на 1 кг веса (мг)
К- число единиц(мг

Дано:

Количество символов: 200*50*80

Количество рисунков: 10

Параметры рисунка:

K = 800×600N = 16 цветов

 -  ?

Решение:

Находим информационный объем текста:

В условии не сказано, в какой кодировке записан текст, поэтому считаем как 1 байт.

[текста]  =  200*50*80*1  =  800 000 байт.

Находим информационный объем рисунка:

i = log₂N = log₂16 = 4 бита

[рисунка] = K*i = 800*600*4 = 1 920 000 бит = 240 000 байт.

[рисунков] = [рисунка] * 10 = 2 400 000 байт.

Находим информационный объем книги:

= [текста] + [рисунков] = 800000 + 2400000 = 3200000 байт

= 3200000 байт = 3125 КБ ≈ 3,05 МБ

ответ:  3125 КБ (примерно 3,05 МБ)

uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k>1 then m:=m+[c];  end; if m=[] then write('Нет букв, встречающихся более 1 раза') else  for c:='a' to 'z' do  if c in m then write(c) end.