[Sindy]

Задачка! есть число 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: Пользуемся тегами!

напишите пожалуйста как правильно будет?))