Я давал ответ на прошлый вопрос начало тоже начну с вода формуллы
<span>b=(fabs(x)-</span>fabs(y))/(1+fabs(x*y));
fabs(x)-модуль числа x
1024 б / 16 = 64 б 64 б / 4 = 64 / 4 = 16 б - сообщения на одной странице или 16 б * 8 = 128 бит
Алфавит 128 бит / 128 сим = 1 бит для символа.
бит может иметь 2 знач = 0 или 1. Алфавит два символа
кодировка символов:
0 1
/ \ / \
0 1 0 1 H
O \ Л ответ Л=10
1
C
Program zadacha;vara: array[1..1000] of integer;i,n,k: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000);write(a[i]:6);end;
k:=0;for i:=2 to n do beginif (a[i] mod 2<>0) and (i mod 2 = 0) then beginwriteln();writeln(a[i], ' N ',i);k:=k+1;end;end;writeln();writeln('kol-vo elementov =',k);end.
program zadacha;vara: array[1..1000] of integer;i,n,sum_pol,sum_otr: integer;beginwriteln('vvedite kol-vo elementov massiva');readln(n);for i:=1 to n do begina[i]:=random(1000)-500;write(a[i]:6);end;
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.