Имеется текст объём которого 40 килобайт на каждой странице 40 строк по 64 символов в строке, 1 символ занимает 8 бит. определите количество страниц в тексте.

V=k*i, где v  - объем текста; k -  общее количество символов; i - количество бит, отводимое на один символ. как правило, в подобных k считается, как произведение кол-ва символов в строке на кол-во строк и на кол-во страниц. k=v/i=40*1024*8/8=40*1024. k/(40*64)=40*1024/(40*64)=1024/64=2^10/2^6=2^4=16. ответ: 16 страниц.

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

как я понял тебе нужна программа которая просто выводит на экран нужный тебе текст

вот она

program ohotnik;

uses crt;

var i: integer;

begin 

clrscr;

textcolor(4);

write(' ka}i{gbiu ');

textcolor(12);

write(' oxothuk ');

textcolor(14);

write(' }i{ejiaet ');

textcolor(2);

write(' 3hatb ');

textcolor(3);

write(' rge ');

textcolor(1);

write(' cug9t ');

textcolor(5);

write(' fa3ahbi ');

readln;

end.

 

зы: слова я пытался писать буквами, я не знаю просто: поддерживает твой паскаль буквы или нет..