16=2^4; ---> 4 бит для кодировки одного символа
1 байт = 8 битам; 0,5байта =4 битам.
1Кбайт =2^10 байт=1024 байт
4* 1024 бита =0,5 байтов *1024=0,5 *2^10 байтов = 0,5 Кбайтов
ответ 1) 0,5
program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>
Задача 1.1. Находим количество точек (пикселей) в кадре 640×480 = 3072002. Находим размер палитры 250×1024×8/307200 = 6 бит (отбрасываем дробную часть после деления)3. Количество цветов в палитре не может превышать 2⁶ = 64
Пояснение: 250 Кбайт = 250×1024 байт = 250×1024×8 бит.
Задача 2.1. Находим объем исходной палитры256 = 2⁸, поэтому объем составит 8 бит2. Находим объем новой палитры2=2¹, поэтому объем составит 1 бит.3. Находим, во сколько раз уменьшится объем файла8/1=8 - в восемь раз.4. Если первоначальный объем был Х, то новый станет Х/8. Уменьшение объема составит X-X/8 = 7X/8 и это равно 7 Кбайт.Тогда 7Х=7*8 Кбайт, откуда Х=8 Кбайт
Как помочь? фотку прикрепил бы..
Ответ:
var a,b,x,y,y1,y2,y3: real;
begin
a:=2.5;
b:=1.5;
write('x = ');
readln(x);
y1:=sin((a+x)*(a+x));
y2:=power(abs(x-a),1/3);
y3:=ln((x-b)*(x-b)+1);
y:=x*y1*y1-y2+y3;
writeln('Y = ',y);
y1:=sqrt(a*x*x+x);
y2:=a*exp(-a*x);
y3:=ln(abs(1-x)+1);
y:=y1+y2+y3;
writeln('F = ',y);
end.