Задачка! есть число 321989543 (например)! мы переводим его в 2 СС и инвертируем в нем ВТОРОЙ байт!потом полученное число мы переводим в 10СС!
ВОт мой код только чтото не получатеся)
Код:
procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:integer;
begin
n1 := StrToInt(Edit1.Text);
n2 := n1 xor $0000FF00;
Edit2.Text := IntToStr(n2);
end;
Admin: Пользуемся тегами!
напишите пожалуйста как правильно будет?))