На диске С заархивирована программа StreetRace. Объём сжатого файла программы StreetRace 933 Mбайт. После распаковки файла программы StreetRace, его
объем примерно равен 1 Гбайт. Определите коэффициент сжатия файла программы
StreetRace.

1С7₁₆ = 111000111₂ = 707₈ = 455₁₀

Объяснение:

1С7₁₆ делим на цифры и переводим в 2 СС

1₁₆ = 1₁₀ = 1₂ (не добавляем впереди 0, чтобы число занимало 4 позиции, т.к. число будет первым)

С₁₆ = 12₁₀ = 1100₂

12 / 2 = 6 + остаток 0

6 / 2 = 3 + остаток 0

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

7₁₆ = 7₁₀ = 111₂ = 0111₂ (добавляем впереди 0, чтобы число занимало 4 позиции)

7 / 2 = 3 + остаток 1

3 / 2 = 1 + остаток 1

1 / 2 = 0 + остаток 1

записываем снизу вверх

1С7₁₆ = 111000111₂ (собираем всё вместе)

111000111₂ - делим на тройки начиная с конца и переводим в 10 СС

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

000₂ = 0₁₀

111₂ = 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 4 + 2 + 1 = 7₁₀

записываем снизу вверх и получаем 8 СС

1С7₁₆ = 707₈

707₈ = 7 * 8² + 0 * 8¹ + 7 * 8⁰ = 7 * 64 + 7 * 1 = 448 + 7 = 455₁₀

1С7₁₆ = 455₁₀

1С7₁₆ = 1 * 16² + С * 16¹ + 7 * 16⁰ = 1 * 256 + 12 * 16 + 7 * 1 = 256 + 192 + 7 = 455₁₀

Var
a:integer;
begin
write('Введите номер месяца: ');
readln(a);
 case a of
    1: writeln('Январь.31 день');
    2: writeln('Февраль.29 дней');
    3: writeln('Март.31 день');
    4: writeln('Апрель.30 дней');
    5: writeln('Май.31 день');
    6: writeln('Июнь.30 дней');
    7: writeln('Июль.31 день');
    8: writeln('Август.31 день');
    9: writeln('Сентябрь.30 дней');
    10: writeln('Октябрь.31 день');
    11: writeln('Ноябрь.30 дней');
    12: writeln('Декабрь.31 день');
end;
end.

2.
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
case a of
1: write(a, ' Копейка');
2..4: write(a, ' Копейки');
5..20: write(a, ' Копеек');
end;
end.