Рассмотрите блок-схему и заполните трассировочную таблицу.
​

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

b) 9 лет

2020=4

2011=4 

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

1)а

var a: real;

begin

readln(a);

a1 : = a*a;   /получили а^2a : = a1*a1;   /получили a^4

a : = a1*a*a;   /получили a^(4+4+2)

writeln(a);

end.

1б)

var x: real;

i: integer;

begin

readln(a);

a1 : = a*a*a;   /получили а^3a : = a1*a1*a1;   /получили a^9

a : = a*a1*a1; /получили а^(9+3+3)

writeln(a);

end.

2)

var a: real; beginreadln(a); writeln('высоты равны', a*a*sqrt(3)/4*a); writeln('радиус вписанной окружности', a*a*a/4*a*a*sqrt(3)/4); writeln('радиус описанной окружности', a*a*sqrt(3)/4*2/3*a); end.

3)var a: real; beginreadln(a);

writeln('в килобайтах' a/1024);

writeln('в мегабайтах' a/(1024*1024));

end.