Поместится ли книга на гмд ёмкостью 1.44мб если в книге 540 страниц на одной странице 60 строк в одной строке 65 символов? если вся книга не поместится то сколько страниц поместится?

2мб полный объем уместится 387 страниц 1,44 мб=1509949,44 б 1 страница =60*65=3900 байт 1509949/3900=387 страниц

Var       n, s, i: integer;       s1: real; begin       readln(n); {общий ввод для всех }             if n < 0 then               writeln(' 1. n=', 0)       else writeln(' 1. n=', n + 4);             s : = 0;       for i : = 1 to n do               s : = s + i;       writeln(' 7. 1+2+3+…+n=', s);             write(' 9. последовательность от n до 1 = ');       for i : = n downto 1 do               write(i, ' ');       writeln();             s1 : = 0;       for i : = 1 to n do               s1 : = s1 + i / 10;       writeln(' 12. 0,1+0,2+0,3+..+n/10=', s1);             write(' 13. последовательность квадратов от 1 до n = ');       for i : = 1 to n do               write(i * i, ' ');       writeln();             write(' 14. последовательность первых n нечетных чисел = ');       for i : = 1 to n do               write(2 * i - 1, ' ');       writeln();             if n > 0 then               writeln(' 20. n степень 3 = ', frac(ln(n) / ln(3)) = 0);             s : = 0;       for i : = 1 to n do               if n mod i = 0 then                       s : = s + i;       writeln(' 24. сумма всех натуральных делителей числа n (сключая 1 и n) = ', s); end.

1. современное короткое, но скорее всего, мало понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 function linelen(a,b: (real,real)): =   sqrt(sqr(b.item1-a.item1)+sqr(b.item2-a.item2)); begin   var a: array[1..3] of (real,real);   var x,y: real;   writeln('введите три пары координат x,y');   for var i: =1 to 3 do begin read(x,y); a[i]: =(x,y) end;   writeln('периметр треугольника равен ',linelen(a[1],a[2])+       linelen(a[1],a[3])+linelen(a[2],a[3])) end. тестовое решение: введите три пары координат x,y 3 -3.5 -6 8 4 5.2 периметр треугольника равен 33.7449685386805 2. традиционное, но возможно тоже не понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 type   point=record       x,y: real       end; function linelen(a,b: point): real; begin   result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)); end;   var   a: array[1..3] of point;   begin   writeln('введите три пары координат x,y');   for var i: =1 to 3 do read(a[i].x,a[i].y);   writeln('периметр треугольника равен ',linelen(a[1],a[2])+       linelen(a[1],a[3])+linelen(a[2],a[3])) end.