ЕГЭ по информатике 4 задание

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

а. 89 ÷ 2 = 44, остаток 1;

44 ÷ 2 = 22, остаток 0;

22 ÷ 2 = 11, остаток 0;

11 ÷ 2 = 5, остаток 1;

5 ÷ 2 = 2, остаток 1;

2 ÷ 2 = 1, остаток 0;

1 ÷ 2 = 0, остаток 1

Запишем остатки от деления в обратном порядке: 1011001.

89₁₀ = 1011001₂

По такой же аналогии переведём остальные числа:

б. 600 ÷ 2 = 300, остаток 0;

300 ÷ 2 = 150, остаток 0;

150 ÷ 2 = 75, остаток 0;

75 ÷ 2 = 37, остаток 1;

37 ÷ 2 = 18, остаток 1;

18 ÷ 2 = 9, остаток 0;

9 ÷ 2 = 4, остаток 1;

4 ÷ 2 = 2, остаток 0;

2 ÷ 2 = 1, остаток 0;

1 ÷ 2 = 0, остаток 1;

600₁₀ = 1001011000₂

в. 2010 ÷ 2 = 1005, остаток 0;

1005 ÷ 2 = 502, остаток 1;

502 ÷ 2 = 251, остаток 0;

251 ÷ 2 = 125, остаток 1;

125 ÷ 2 = 62, остаток 1;

62 ÷ 2 = 31, остаток 0;

31 ÷ 2 = 15, остаток 1;

15 ÷ 2 = 7, остаток 1;

7 ÷ 2 = 3, остаток 1;

3 ÷ 2 = 1, остаток 1;

1 ÷ 2 = 1, остаток 1;

2010₁₀ = 11111011010₂

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
  //      1 3 5 7 9 1 3 5 7 9 1
  //       2 4 6 8 + 2 4 6 8 +
  var n:=Length(s);
  var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
  w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
  w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
  w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
  Write(w,' ');
  w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
  w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
  w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.

Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ