1833 будет <span>110001 111000 110011 110011
-1833 будет </span><span>101101 110001 111000 110011 110011
</span>
1)
var s1,s2,s3,s4:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
WriteLn('s1 '+s1);
WriteLn('s2 '+s2);
WriteLn('s3 '+s3);
end.
2)
var s1,s2,s3,s4,s5:String;
var i:Integer;
begin
s4:= 'Иванов Иван Иванович';
i:=Pos(' ',s4);
s1:= Copy(s4,1,i);
Delete(s4,1,i);
i:=Pos(' ',s4);
s2:= Copy(s4,1,i);
Delete(s4,1,i);
s3:=s4;
s5:=s1+Copy(s2,1,1)+'.'+Copy(s3,1,1)+'.';
WriteLn(s5);
end.
3 кбайт = 3*1024*8=24576 бит
1 мбайт = 1*1024*1024*8=8388608 бит
Алгоритм:
1) Понять что не видишь носки и потерял их
2) Вспомнить где ты их видел в последний раз
3) Начать искать
4) Найти носки