Реферат имеет объём 60 листов на каждой странице 50 строк в среднем в каждой сторке 80 символов определите информационный объём реферата в кодировке виндоус 1251 и юникод ответ дайте в байтах и кбайтах

60 листов * 50 строк * 80 символов = 240000 символов - всего в тексте кодировка windows-1251 ( вес одного символа 8 бит ) - 240000  *  8  =  1920000 бит = 240000 байт = 234 кбайт кодировка unicode ( вес одного символа 16 бит ) - 240000 * 16 =  3840000 бит = 480000 байт = 469 кбайт

{1-й вариант} varx,y,i,j: integer; beginwriteln('введите разность задуманных чисел: '); read(x); writeln('введите сумму задуманных чисел: '); read(y); writeln('задуманные числа: ',(y+x)/2,' и ',(y-x)/2);   end.     {2-й вариант}varx,y,i,j: integer; begin writeln('введите разность задуманных чисел: '); read(x); writeln('введите сумму задуманных чисел: '); read(y); for i: =1 to 1000 do   begin   for j: =1 to 1000 do     if j - i = x then       if j + i = y then writeln('задуманные числа: ',j,' и ',i);   end;   end.    

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! unit asm; interface   type sf=(integer,integer);   function addsf(a,b: sf): sf;   function subsf(a,b: sf): sf;   function multsf(a,b: sf): sf;   function divsf(a,b: sf): sf;   implementation     function gcd(p: sf): integer;   begin       (var a,var b): =p;       a: =abs(a); b: =abs(b);       while b> 0 do (a,b): =(b,a mod b);       result: =a   end;     function reductsf(p: sf): sf;   begin       var t: =gcd(p);       if t> 1 then result: =(p[0] div t,p[1] div t)       else result: =p   end;     function addsf(a,b: sf): =reductsf((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));     function subsf(a,b: sf): =reductsf((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));   function multsf(a,b: sf): =reductsf((a[0]*b[0],a[1]*b[1]));         function divsf(a,b: sf): =reductsf((a[0]*b[1],a[1]*b[0]));   end. ***** пример работы с модулем ***** uses asm; begin   var a: =(5,24);   var b: =(7,8);   var c: =addsf(a,b);   writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1]) end. результат 5/24+7/8=13/12