begin
for i:integer:=1 to 7 do
writeln(‘Семь раз отмерь, один раз отрежь’);
end.
//PascalABC.NET 3.2 сборка 1318
function MaxFrom3(a,b,c:integer):integer;
Var
max:integer;
begin
max:=a;
if max<b then max:=b;
if max<c then max:=c;
MaxFrom3:=max;
end;
function MinFrom3(a,b,c:integer):integer;
Var
min:integer;
begin
min:=a;
if min>b then min:=b;
if min>c then min:=c;
MinFrom3:=min;
end;
Ответ:
1) 1148C4 (16) - 540 (16) = 114384
2) 1010000001011000
Ответ:72 бит
Объяснение:1 байт=8 бит 8*9=72 бит
1) 256 цветов, значит 1 пикс - 8 бит = 1 байт
2400/1=2400 пикс.
2) 4 цветов, значит 1 пикс - 2 бит
64*128=8192 пикс.
8192*2=<u>16384</u>
16 цветов, значит 1 пикс - 4 бит
32*32= 1024 пикс.
1024*4=<u>4096</u>
3) 640*480=307200 пикс.
307200*3=921600 байт.
28 800 бит/c = 3600 байт/c
921600/3600=256 с.
4) 16 цветов, значит 1 пикс = 4 бит
50*40=2000 пикс.
2000*4=8000 бит.
8000*5=40000 бит/c = 5000 байт/c
5) сканер
видеокамера
фотоаппарат
графический
планшет
6) Переведем разрешающую способность сканера из точек на дюйм (1 дюйм = 2,54 см) в точки на сантиметр:
600/2,54 = 236 точек/см.
значит размер изображения, 472х708 см.
472*708=334176
334176*8=326 Кбайт
7) тоже самое как в прошлом, только умножить на 2.
326*2=652 Кбайт
8)тоже самое как в позапрошлом, только умножить на 2,5.
326*2=815 Кбайт
