Исправленный вариант:
<span>program Kopeika;
var
a: integer;
begin
Writeln('Vvedite chislo');
Readln(a);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: write(a, ' kopeika');
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: write(a, ' kopeiki');
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..99: write(a, ' kopeek');
end;
Readln;
</span>end.
Переведем 128000бит в Кбайты для удобства: 128000бит=128000/8 байт( т.к. в одном байте 8 бит)=16000 байт=16000/1024 Кбайт (т.к. в одном Кбайте 1024 байт)=15,625 Кбайт, следовательно скорость передачи данных равна 15,625 Кбайт/с
500Кбайт/15,625 Кбайт/с=32 секунды займет передача файла
Ответ: 32 секунды
Для перевода из 10 в 8 системы счисления нужно число 313₁₀ делить всё время на 8 (столбиком)
313 | <u>8
</u><u>312 </u>| 39 | <u>8 </u>
1 <u>32</u> | 4 | <u>8 </u>
7 <u>0 </u>| 0
4
Остатки от деления собираем снизу–вверх → 471₈
Ответ: 313₁₀ = 471₈