Як виконується фрагмент алгоритму наведений на малюнку 3.44

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.

три богатыря ( где они там думали. куда пойти: прямо, налево или направо)

в латинице символ занимает 1 байт

далее простая арифметика

60*25*1=1500 байт /1024 -это для перевода в килобайты =  1,46484375 кбайт

далее   находите кол-во страниц

делите общий объем 200 кб на  1,46484375  кбайт,в итоге получаете  136,53333333333333333333333333333, т.е 136 страниц,

если возможно напишите потом результат,интересно! за ранее !

п.с. вашему условию в какой кодировке кодируется не хватает!