1 Кбайт=1024 байт= 1048576 бит. Столько же у нас символов. Тк 1байт=8 бит, 1 символ=8бит.
Const n=5;
var x,y:array[1..n] of integer;
i,j,a,s,k:integer;
begin
writeln('vvedite a=');
readln(a);
writeln('vvedite massiv x=');
for i:=1 to n do
read(x[i]);
writeln ('vvedite massiv y=');
for j:=1 to n do
read(y[j]);
k:=0;
s:=0;
for i:=1 to n do
for j:= 1 to n do
if x[i]*y[j]<=a then begin
k:=k+1;
s:=s+(x[i]*y[j]);
end;
writeln ('kolicestvo=',k,' summa=',s);
readln;
end.
1 var
2 cl : array[0 .. 2] of TColor = (clGreen, clRed, clYellow);
3 curr : integer = 0;
4
5 procedure TForm1.Button1Click(Sender: TObject);
6 begin
7 curr := succ(curr) mod 3;
8 Color := cl[curr];
9 end;
10
11 procedure TForm1.FormCreate(Sender: TObject);
12 begin
13 Color := cl[curr];
14 end;
38 символов , каждый по 16 бит. 36*16=608 бит
А B не А А и В А и В или не А
0 0 1 0 1
0 1 1 0 1
1 0 0 0 0
1 1 0 1 1