На одном стандартном печатном листе размещается 40 строк по 60 символов. сколько такиз листов потребуется для текста объёмом 15 кб?

паскаль авс:

program kriswoo; uses crt; var  a,n: integer;   st: real; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   write('введите число а=');   readln(a);   write('bведите число n=');   readln(n);   if n> =0 then       begin          st: =exp(ln(a)*n);           writeln('результат: ',a,' в степени ',n,' равно ',st);       end      else           writeln('число n должно быть неотрицательно! '); end.

program tabulator; uses graphabc, crt; var  min,max,shag,x,y: real; x0,y0,k,i,x1,y1: integer; begin  setwindowsize(640,640);   x0: =300;   y0: =300;   k: =50;   min: =2;   max: =4;   shag: =0.2;   x: =min;     line(x0,20,x0,600);     line(20,y0,620,y0);     line(x0,20,x0-10,30);   line(x0,20,x0+10,30);     line(630,y0,620,y0-10);   line(630,y0,620,y0+10);     for i: =-5 to 5 do            begin            line(x0+(i*k),y0-10,x0+(i*k),y0+10);             textout(x0+(i*k),y0+10,inttostr(i));             end;     for i: =-5 to 5 do            begin            line(x0-10,y0+(i*k),x0+10,y0+(i*k));             if i< > 0 then textout(x0+10,y0+(i*k),inttostr(-i));             end;   while x< =max do      begin        y: =0.1*x*x-x*cos(x);         writeln(x: 5: 2,' ',y: 5: 2);         x1: =trunc(x0+x*k);         y1: =trunc(y0-y*k);         setpencolor(clred);         circle(x1,y1,2);         x: =x+shag;       end; end.