Напишите программу на паскале

1.  ответ: 100001000₂

11001101₂ + 111011₂ = (2⁷*1 + 2⁶*1 + 2⁵*0 + 2⁴*0 + 2³*1 + 2²*1 + 2¹*0 + 2⁰*1) + (2⁵*1 + 2⁴*1 + 2³*1 + 2²*0 + 2¹*1 + 2⁰*1) = (128 + 64 + 0 + 0 + 8 + 4 + 0 + 1) + (32 + 16 + 8 + 0 + 2 + 1) = 205₁₀ + 59₁₀ = 264₁₀ = 100001000₂

Перевод 264₁₀ в 2-ю СС (mod - остаток от деления; каждый раз число делим на 2):

264 mod 2 = 0

132 mod 2 = 0

66 mod 2 = 0

33 mod 2 = 1

16 mod 2 = 0

8 mod 2 = 0

4 mod 2 = 0

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке. Получается: 100001000₂.

2.  ответ: сума двух чисел - 100110010₂, а разность двух остальных- 1011011₂.

10011001₂ = 2⁷*1 + 2⁶*0 + 2⁵*0 + 2⁴*1 + 2³*1 + 2²*0 + 2¹*0 + 2⁰*1 = 128 + 0 + 0 + 16 + 8 + 0 + 0 + 1 = 153 ₁₀

10011001₂ (153₁₀) + 153₁₀ = 153₁₀ + 153₁₀ = 306₁₀

11011001₂ = 2⁷*1 + 2⁶*1 + 2⁵*0 + 2⁴*1 + 2³*1 + 2²*0 + 2¹*0 + 2⁰*1 = 128 + 64 + 0 + 16 + 8 + 0 + 0 + 1 = 217 ₁₀

217 ₁₀ - 126₁₀ = 91₁₀

Переводим 306₁₀ в 2-ю СС (mod - остаток от деления; каждый раз число делим на 2):

306 mod 2 = 0

153 mod 2 = 1

76 mod 2 = 0

38 mod 2 = 0

19 mod 2 = 1

9 mod 2 = 1

4 mod 2 = 0

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке. Получается: 100110010₂.

Переводим 91₁₀ в 2-ю СС (mod - остаток от деления; каждый раз число делим на 2):

91 mod 2 = 1

45 mod 2 = 1

22 mod 2 = 0

11 mod 2 = 1

5 mod 2 = 1

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке. Получается: 1011011₂.

//Pascal ABC.NET 3.1 сборка 1256

Var
 s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
while pos(' в ',s)<>0 do
 begin
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
  s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
  delete(s,1,pos(' в ',s)+2);
 end;
  if (s[1]='в') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='на'+s;
 end;
if (s[1]='В') and (s[2]=' ') then
 begin
  delete(s,1,1);
  s:='На'+s;
 end;
s:=s1+s;
writeln(s);
end.

Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь

Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.