//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadReal('Введите число:');
if a>0 then write('<span>Число положительное')
else if a<0 then write('</span><span>Число отрицательное');
end.</span>
№1
<span>a) 12288 Кб = (12288 : 1024) Мб = 12 Мб
</span><span>b) 1024 Гб = (1024 * 1024) Мб = 1048576 Мб
</span><span>c) 2097152 байт = (2097152 : 1024 : 1024) Мб = 2 Мб
№2
</span><span>a) 3,2 Мб = (3,2 * 1024 * 1024 * 8) бит = 26843545,6 бит
</span><span>b) 2 Кб = (2 * 1024 * 8) бит = 16383 бит
№3
</span><span>a) 6144 Кб = (6144 : 1024) Мб = 6 Мб
</span><span>b) 2048 Гб = (2048 * 1024) Мб = 2097152 Мб
</span>c) 3145728 байт = (<span>3145728 : 1024 : 1024</span><span>) Мб = 3 Мб
№4
</span><span>a) 1,4 Мб = (1,4 * 1024 * 1024 * 8) бит = 11744051,2 бит
</span><span>b) 8 Кб = (8 * 1024 * 8) биьт = 65536 бит</span>
var a:array[1..10] of integer;
i,s:integer;
Begin
randomize;
for i:= 1 to 10 do begin
a[i]:= random(100);
s:=s+a[i];
end;
writeln(s);
End.
var a:array[1..10] of integer;
i,mk,pk,s,p:integer;
Begin
randomize;
p:=1;
for i:= 1 to 10 do begin
a[i]:= random(30+10)-10;
if a[i]>=0 then begin
pk:=pk+1;
s:=s+a[i];
end
else begin
mk:=mk+1;
p:=p*a[i];
end;
end;
writeln(pk,s,mk,p);
End.
1. 2^4 = 16 цветов
2. ln(16)/ln(2) = 4 бита достаточно
3. 2^24 = 24 бита / 8 = 3 байта
4. 1024*768*(ln(16777216)/ln(2)) бит пикс = 18874368 бит / 8 / 1024 / 1024 = 2,25 мегабайта объём необходим.
5. (ln(16)/ln(2)) бит пикс * 10 * 10 = 400 бит / 8 = 50 байт инф. объём
6. 128*128/8/1024 = 2; 4 кбайт / 2 = 2 бит на пиксель; 2^2 = 4 цветов
7. 640*480*3 байт пикс = 921600 байт вес; 921600 байт * 8 = 7372800 бит / 28800 бит сек = 256 сек
Локальная сеть - это компьютерная сеть, покрывающая обычно относительно небольшую территорию или небольшую группу зданий (дом, офис, фирму, институт)