При копировании кода из IDE на сайт автоматически удаляется перенос строки. Будет прикреплен скриншот того, как должен выглядеть код
program p1;var a: real; i: integer;begin writeln('Введите курс доллара >> '); readln(a); for i:=1 to 10 do begin writeln(i+'$ = ' + i*a + ' рублей'); end;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 Мбит/с
Var
i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
write(s[length(s)-i]);
end.