Олег, придя из школы, решил записать себе на компьютере мелодию на мобильный аппарат, Он записывал звук в течение17 секунд при разрядности квантования 32 бит. Информационный объём получившегося у него звукового файла в битах равен 5984000. Найдите частоту
дискретизации, при которой записывался файл.

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

-32=-100000

прямой код 10100000

обратный код 11011111

дополнительный код 11100000

-102=-1100110

прямой код 11100110

обратный код 10011001

дополнительный код  10011010

-126=-1111110

прямой код 11111110

обратный код 10000001

дополнительный код  10000010

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

5`120`000 бит =  640 000 байт = 625 кб