1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
1)<span>1000 байт</span> 8000 бит
2)7000 байт 70 000 бит
3)15000 байт 150 000 бит
Первый ответ 111
второй ответ <span>6F</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 Мбит/с
