1.Uses crt;
Var
a:array[10..20] of integer;
i:Integer;
begin
clrscr;
for i:=10 to 20 do
a[i]:=i;
for i:=10 to 20 do
writeln (a[i],',');
End.
2. Var
b:array[2..8] of real;
1. Для хранения цвета одного пикселя монохромного изображения требуется log(2)2=1 бит.
Объем изображения = 384*256*1 бит = 384*256/8 байт = 48*256/1024 Кбайт = 12 Кбайт.
2. Для хранения цвета одного пикселя изображения, в палитре которого 8 цветов, требуется log(8)2=3 бита.
Объем изображения = 768*512*3 бит = 768*512*3/(8*1024) Кбайт = 144 Кбайта.
Налить в 5литровую банку воды, перелить из нее в 2литровую, отсанется 3 литра, и ещё раз перелить в 2литровую, останется 1 литр