program zadacha; uses crt; var a: array[1..10]of integer; i,k,sum: integer; begin i: =0; k: =0; repeat inc(i); readln (a[i]) ;
inc(k) ; until a[i]=0; sum: =0; for i: =1 to k do sum: =sum +a[i]; writeln('sr_znach ',sum/k); end.
отметь как лучший ответ
воспульзуемся 2-мя формулами.
1. найдем объем информации одного знака в первом письме n=2 в степени i знак.(где n=16)
отсюда объем одного знака в письме равен 4 бит.
2. найдем объем информации одного знака во втором письме по той же формуле
получаем (где n=256)
8 бит объем одного знака во втором письме.
3. по формуле i сообщения=количество знаков в письме * i знак.
можно найти обеъем каждого из писем, но на нужно сравнить объемы, а так как колличество знаков в письме одинкаово мы сравниваем только i знак
ответ: объем второго письма в 2 раза больше объема превого
это скорей к , а не по информатике. при этом об одном и том же произведении мнения разных людей могут быть совершенно разными, некоторые и лунную сонату называют мутью и чушью.
расшифруй термин "анализировать" и "музыка". если анализ проводит компьютер, то для него музыка - это просто последовательный набор звуков, если многоголосие то многоканальный. ну а воспринимать и в дальнейшеи анализировать он может только громкость и спектр. так что определи базовые понятия, без этого не имеет никакого смысла.
Поделитесь своими знаниями, ответьте на вопрос:
проверено на паскаль авс
program dafnochka; uses crt; var r,sum: real; k: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); sum: =0; k: =0; r: =1; writeln('введите ненулевое число'); writeln('(или введите 0 для конца последовательности) '); while r< > 0 do begin write("ввод: ") ; readln (r); sum: =sum+r; k: =k+1; end; writeln(); writeln('всего введено ',k-1,' чисел'); writeln('среднее значение равно ',sum/(k-1)); end.