Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
a) сколько уровней серого предоставляется 12-ю битами. (Я предположил, что 4096)
Верно. = 4096
b) сколько битов потребует одна такая рентгенограмма.
Всего пикселей:
2048 * 2048 = 4194304
На каждый пиксель по 12 бит:
4194304 * 12 = 50331648 бит на одну рентгенограмму.
c) необходимо отправить 5 рентгенограмм по линии Т1 (1.544 Мбит/с). Сколько времени это займет для идеальной линии.
1.544 Мбит/с = 1544000 бит/с
(5 * 50331648) / 1544000 = 162,991088083 ≈ 163 секунды
d) какой должна быть ширина канала, чтобы при запросе 5 рентгенограмм приходили в течение 2 секунд.
(5 * 50331648) / 2 = 125829120 бит/c ≈ 126 Мбит/с
Объекты , свойства , + кони. 12 , 6 , 24 , + 36.
8 сигналов - кодируются 3 разрядами (2^3=8)
Следовательно один сигнал = 3 бита.
80*3=240 бит --> 30 байт