Var a:array [1..10] of integer;
b:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
i:=1;
while i<=9 do
begin
b[i]:=a[i]*3;
i:=i+2;
end;
i:=2;
while i<=10 do
begin
b[i]:=a[i]*2;
i:=i+2;
end;
for i:=1 to 10 do
write(b[i],' ');
<span>end.</span>
Program ip;
var s,s1:string;
i,j,x,err:integer;
f:boolean;
begin
readln(s);
i:=1; j:=1; f:=true;
while (j<4) and f do
begin
while s[i]<>'.' do
begin
s1:=s1+s[i];
inc(i);
end;
val(s1,x,err);
f:=x<256;
delete(s1,1,length(s1));
inc(j);
end;
if f then
begin
while i<=length(s1) do
begin
s1:=s1+s[i];
inc(i);
end;
f:=x<256;
end;
if f then writeln(1) else writeln(0);
<span>end.</span>
1,5 Кб = 1536 бит
3072/1536 = 2 бита на символ
2^2 = 4
Ответ: 4