В текстовом режиме экран разбивается на 35 строк по 62 символа в строке. Определите объем в Кбайт текстовой информации, занимающей весь экран монитора, если (ответ округлите до сотых):

а) в кодировке КОИ-8 один символ весит 1 байт;

б) в кодировке Unicode один символ весит 2 байта.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.

2000 знаков (но точно не уверен) 

  =)

    пусть х - время в секундах.

    тогда

      (1/3 *   60/8 мбайт/с * x) с - время   за треть времени)

      (2/3 * 90/8 мбайт/с * x) с - время за две третти времени

      тогда уравнение получается

      1/3 *   60/8   * x   +   2/3 * 90/8 * x = 9000

      2,5x +   7,5x = 9000

          10x = 9000

          x = 900

        получается 900 секунд или 900/60 = 15 минут)  

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.