Статья набранная на компьютере, содержит 100 страниц, на каждой странице 80 строк. информационный объем статьи в одной из кодировок unicode, в которой каждый символ кодируется 16 битами, составляет 500 кбайт. определите количество символов в одной строке.

1. Выразим 500 Кбайт в байтах: 500 * 1024 = 512000 Байт
2. Найдем общее количество символов учитывая, что один символ занимает 16 бит или 2 байта: 512000/2 = 256000
3. Находим количество символов на 1 странице и на 1 строке:
256000/100=2560
2560/80=32

ответ:32

Для быстрого перемещения курсора в пределах экрана можно использовать следующие клавиши и сочетания клавиш:

На один символ влево  СТРЕЛКА ВЛЕВО
На один символ вправо  СТРЕЛКА ВПРАВО
На одно слово влево  CTRL+СТРЕЛКА ВЛЕВО
На одно слово вправо  CTRL+СТРЕЛКА ВПРАВО
На один абзац вверх  CTRL+СТРЕЛКА ВВЕРХ
На один абзац вниз  CTRL+СТРЕЛКА ВНИЗ
К предыдущей строке  СТРЕЛКА ВВЕРХ
К следующей строке  СТРЕЛКА ВНИЗ
В конец строки  END
В начало строки  HOME
Если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. Существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. Это можно сделать с полос прокрутки, расположенных справа и внизу окна документа

Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
   Begin
   if (N mod 10) > A then A:= N mod 10;
   N:=N div 10;
   End;
Write(A)
End.

Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
   Begin
   if A=B then C:=true;
   if N>0 then
      Begin
      A:=N mod 10;
      N:=N div 10;
      End;
   if A=B then C:=true;
   if N>0 then
      Begin
      B:=N mod 10;
      N:=N div 10;
      End;
   End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.