Сколько страниц текста уместится на дискету, если одна страница - 3000 символов, а объем дискеты = 1.44мб , ?

3000  символов - это 3000 байт 1.44мб  примерно  = 1509949  байт 1509949  /  3000  примерно  = 503,3  страницы

program funct1;  

uses crt;  

var a,rez: real;

        i,n: integer;

begin

      clrscr;

      write('введите а: ');

      readln(a);  

      write('введите n: ');

      readln(a);

      rez: =a;

      for i: =1 to n-1 do rez: =rez*(a+i);

      writeln('произведение ряда: ',rez: 5: 5);  

    readkey;

 

end. 

 

 

 

 

 

program jfe3; const n=10; {это будет кол-во элементов массива}var a: array [1..n] of integer; i,s: integer; begin

 

randomizefor i: =1 to n do begin a[i]: =random(100); {элемент выбирается случайно от 0 до 100} s: =s+a[i]; {когда эл. присвоился, его значение плюсуется к общ сумме} end; for i: =1 to n dowriteln(a[i],' '); {показать сам массив}writeln(s); {показать сумму}readln; {чтобы окно сразу не закрывалось}end.

 

 

 

 

 

  так?