t ≈ 17c
Объяснение:
Ну, первым делом нам надо перевести 259 килобайт в биты, мы знаем, что в одном килобайте 1024 байта, а в одном байте 8 бит, то есть:
259 * 1024 * 8 = 2121728 бит
Это мы узнали объём сообщения в битах, теперь найдем время, которое понадобится для передачи этого сообщения с модема, с пропускной в 128000 бит/с. "Бит/с" нам показывает, сколько бит информации может передать этот модем за 1 секудну, ну это логично, теперь чтобы найти время, нам надо объём сообщения поделить на пропускную модема:
t = 2121728 бит / 128000 бит/с ≈ 16,6с
Ах, да, надо дать ответ целым числом, тогда t ≈ 17c
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Текст:');
var c:=ReadlnChar('Буква:');
Writeln('Буква встречается ',s.Where(p->p=c).Count,' раз(а)')
end.
Пример
Текст: а роза упала на лапу азора
Буква: а
Буква встречается 8 раз(а)
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Текст:');
var m:=s.MatchValues('(\w)\1{1}').Distinct;
foreach var cc in m do s:=s.Replace(cc,cc[1]);
s.Println
end.
Пример
Текст: стеклянный оловянный длинношеее искусство
стекляный оловяный длиношее искуство