blob: 9e0ccc0e2e6b0676150f64b875a624cdd7178894 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(*
Challenge 119
TASK #1 - Swap Nibbles
Submitted by: Mohammad S Anwar
You are given a positive integer $N.
Write a script to swap the two nibbles of the binary representation of the
given number and print the decimal number of the new binary representation.
A nibble is a four-bit aggregation, or half an octet.
To keep the task simple, we only allow integer less than or equal to 255.
Example
Input: $N = 101
Output: 86
Binary representation of decimal 101 is 1100101 or as 2 nibbles (0110)(0101).
The swapped nibbles would be (0101)(0110) same as decimal 86.
Input: $N = 18
Output: 33
Binary representation of decimal 18 is 10010 or as 2 nibbles (0001)(0010).
The swapped nibbles would be (0010)(0001) same as decimal 33.
*)
program ch1(input, output);
uses sysutils;
var
n: Integer;
begin
n := StrToInt(paramStr(1));
n := (((n div 16) mod 16) + ((n mod 16) * 16));
WriteLn(n);
end.
|
