№1 . в ткстовом режиме экран монитора компьютера обычно разбивается на 25 строк по 80 символов в строке . определите объем текстовой информации , занимающей весь экран монитора , в кодировке кои-8 . №2 считая , что каждый символ кодируется одним байтом , определите , чему равен информационный объем следующей пословицы : речь вести - не лапти плести .

1) 25*80=2000 байт

2)   дано :   речь вести - не лапти плести.

считаем число символов, включая пробелы и точку

29, я насчитал

ответ 29 байт

 

Const   n = 5;                     {количество спортсменов} var   k : array [1..n] of integer;   i,  max : integer; begin   for i : = 1 to n do   begin     write('результат спортсмена номер:   ', i, ': ');     readln(k[i]);     end;   max : = k[1];   for i : = 2 to n do     if k[i] > max then       max : = k[i];   writeln('максимальный результат:   ', max); end.

Var     i,k,m,r,p,j: integer;     a: array[1..10]of integer; begin writeln('массив: '); for i: =1 to 10 do     begin   a[i]: =random(10);   write(a[i],' ');   end; writeln; write('введите k,m,r: '); readln(k,m,r); for i: =1 to r do   begin   j: =k;   p: =a[j];   while j< m do     begin     a[j]: =a[j+1];     j: =j+1     end;   a[j]: =p;   end; writeln('измененный массив: '); for i: =1 to 10 do  write(a[i],' ');   end.