Напишите программу, которая приписывает к исходному числу ещё одно такое же число.

Формат входных данных
Вводится одно целое число N (0 ≤ N ≤ 100 000 000)

Формат выходных данных
Целое неотрицательное число, являющееся ответом на задачу.

входные данные
66
выходные данные 6666

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.

1, 2)
Сначала надо разделить IP на байты, по 8 бит:
1 )11001100.11100010.10100110.01101001
2) 11011001.10100001.01100011.00111010

Теперь переводим каждый байт в десятичную сс, получаем:

1) 204.226.166.105
2) 217.161.99.58

3, 4) 
Переведем каждый байт в двоичную сс:

3) 10111100.1011.11000010.100000
4) 11110000.1111.0.10

Добавим незначащие нули, чтобы кол-во бит в каждом байте было равно восьми:

3) 10111100.00001011.11000010.00100000
4) 11110000.00001111.00000000.00000010

Уберем точки:

3) 10111100000010111100001000100000
4) 11110000000011110000000000000010