Visual Basic. Написать функцию, удаляющую из строки заданную подстроку. Проверить существует в строке данная подстрока. Программу нужно сделать для интерфейса. По возможности отправьте файлом.

объем информации одного измерения будет равна 7 бит ();

станция сделала 8192 измерения - умножим на кол-во информации, необходимое для записи одного измерения:   8192*7=57344 бит=7168 байт = 7 килобайт

если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется  

program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.

так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

t1 = s1/v1

t2 = s2/v2

v(sr) = (s1+s2)/(t1+t2)