хоть с одним вопросом что представляет собой пассивный и типовой документ? 2. Дайте характеристику основным частям окна MS Word. 3. Какие средства предусмотрены в MS Word для организации просмотра документов?

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;