program summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.
Var
x,k:integer;
a:array[1..100] of integer;
begin
k := 0;
read(x);
while x <> 0 do
begin
k := k + 1;
a[k] := x;
read(x)
end;
writeln(k);
for x := 1 to k do
write(a[x],' ')
<span>end.</span>
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 Мбит/с
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.