2. составьте программу, определяющую, на какую букву начинается третье слово в предложении. 3*. составьте программу, определяющую длину последнего слова в предложении. желателно в qbasic

2.

program pr1; uses crt; var stroka: string; i,a,b: integer; beginclrscr; readln(stroka); b: =1; if stroka[b]< > ' ' then a: =1else while stroka[b]=' ' do b: =b+1; for i: =1 to length(stroka) do begin if (stroka[i]=' ') and (stroka[i+1]< > ' ') then a: =a+1; if a=3 then begin writeln(stroka[i+1]); break; end; end; end.

 

в

Для начала посчитаем, сколько бит информации было передано: 2 минуты и 45 секунд = 165 секунд 165 с * 128000 бит/с = 21120000 бит теперь вспомним, что такое частота дискретизация и уровни квантования. дело в том, что аудио сигнал - это такая прикольная сложная синусоида. чтобы записать сигнал в цифровом виде, каждую секунду сигнала как бы делят на промежутки (количество этих промежутков в секунде и есть частота дискретизации). для каждого из этих промежутков записывается что-то вроде среднего значения высоты. количество возможных значений - количество уровней квантования. но это так - если говорить . подробнее прочитайте в своём учебнике информатики. итак - у нас 256 уровней квантования. значит каждое из значений можно записать 8 битами. и на секунду у нас приходится 22000 таких записей. то есть каждая секунда записи у нас кодируется 22000 * 8 = 176000 битами. 21120000 / 176000 = 120 секунд. вот так вот всё просто =)

Program project; //объявляем название программы var //объявляем переменные a: integer; //integer - целое число begin //начинаем собственно программу > > a: =1 ; //первое число будет состоять из единиц > > while a < > 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10 > > begin //начало цикла > > > > writeln (a, a, a);   //записываем "а" трижды > > > > a: =a+1; //прибавляем к "а" единицу > > end;   //конец цикла end.  //конец программы p. s. вместо "> > " пиши пробелы, просто они здесь не отображаются