1) такой подход к измерению информации не имеет отношения к содержанию текста, поэтому такой способ измерения информации называют объективным. все символы кодируются одинаковым количеством байт. количество байт, отводимое под один символ определяется размером алфавита. пусть в алфавите n букв, а n - количество байт, отводимое под один символ. тогда n можно найти следующим образом: n - минимальное число такое, что 2^n > = n. если знаете, что такое логарифм, то n = [logn], где log - двоичный логарифм, а [] - операция округления вверх.3) числа хранятся в виде последовательности байт. пусть для числа отведено n байт. тогда значения, которые может принимать число - от 0 до 2^n - 1 (если число беззнаковое) или от -2^(n - 1) до 2 ^ (n - 1) - 1 (если число со знаком).7)#include < iostream> using namespace std; int main(){ int a, b; cin > > a > > b; cout < < a * b < < endl; return 0; }9)#include < iostream> using namespace std; int main(){ int a; cin > > a; cout < < a * a < < endl; return 0; }11)#include < iostream> using namespace std; int arr[1000]; int main(){ int n; cin > > n; for (int i = 0; i < n; ++i) cin > > arr[i]; int sum = 0, cnt = 0; for (int i = 0; i < n; ++i) { if(arr[i] > 0) { sum += arr[i]; ++cnt; } } cout < < (float)sum / cnt < < endl; return 0; }
cochana
10.05.2021
Program gt; var n,i,max,max2,min,min2: integer; a,b: array[1..100]of integer; procedure proverka(a: array[1..100]of integer; var max,min: integer); begin max: =a[1]; min: =a[1]; for i: =1 to n do begin if(a[i]> max)then max: =a[i]; if(a[i]< min)then min: =a[i]; end; end; begin readln(n); for i: =1 to n do read(a[i]); for i: =1 to n do read(b[i]); proverka(a,max,min); proverka(b,max2,min2); if (max = max2) and (min = min2) then writeln('yes')else writeln('no'); end.