Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"11001100100110101011111001101111"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
11001100{2} = 204{10}
10011010{2} = 154{10}
10111110{2} = 190{10}
01101111{2} = 111{10}
IP = 204.154.190.111
"11011100111000111110001001110010"
Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"11011100111000111110001001110010"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
11011100{2} = 220{10}
11100011{2} = 227{10}
11100010{2} = 226{10}
01110010{2} = 114{10}
IP = 220.227.226.114
Var a,b:integer;
Begin
Writeln('Введите год рождения');
Read(a);
Writeln('Введите текущий год');
Readln(b);
If b>a Then
begin
a:=(b-a)*365;
Writeln('Примерное число прожитых дней=',a);
end
Else If a>b Then Writeln('Не правильно указаны год рождения и текущий год')
Else
begin
a:=a*365;
Writeln('Примерное число прожитых дней=',a);
end;
End.