Смотря по задаче ты всё правильно решил.
N у тебя это мощность алфавита
отсюда узнаём вес символа 64=2^6 -> 6
количество символов будет 256 на 128 = 32 768
информационный объём равен количество символов на вес одного символа
32 768 * 6 = 196 608
Тут у тебя всё полностью правильно. только вместо большой i (ай английской) около =6 поменяй на маленькую как в 2^i
Var ar : array [1..100] of integer;
i, pluscount,minuscount,zerocount : integer;
begin
readln(n); -считываем число элементов массива(если оно дано, я не знаю)
for i := 1 to n do
begin
read(ar[i]); - считываем элемент массива, заносим его в массив
if (ar[i] > 0) then pluscount := pluscount+1; -если >0 -> увел. счетчик пол.чисел
if (ar[i] < 0) then minuscount := minuscount+1; -если <0 -> увел. счетчик отр.чисел
if (ar[i] = 0) then zerocount := zerocount+1; -если =0 -> увел. счетчик нулей
end;
writeln('В массиве ',pluscount,' положительных чисел, ',minuscount,' отрицательных чисел, ',zerocount,' нулей.');
end.
1)
45 = 101101 (Десятеричная) 55 (восьмеричная)
123 = 1111011 173
2)
123 173 (8-ричная) 7B (16-ричная)
2012 3734 7DC
3)
101101 45
111111 63
uses
SysUtils;
var
n,m,i:integer;
begin
readln(n);
m:=0;
for i := 1 to n-1 do
if m > n then break else
if (n mod i = 0) then m:=m+i;
if m=n then writeln('Yes') else
writeln('No');
end.
Const p1=10; p2=10;
var p:real;
begin
p:=100-(100+p1)*(100-p2)/100;
if p>0
then writeln('Товар подешевел на ',p:3:1,'%')
else writeln('Товар подорожал на ',-p:3:1,'%');
end.
Результат:
<span>Товар подешевел на 1.0%</span>
