Решите только 5 ззадание.​

1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i,  i=1 бит.

2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.

3) i=8 бит=1 байту

(20*1024)/(32*64*1)= 10

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.

не знаю сколько байт содержит символ в  kol8. но смотри как надо:

1. 4096*512*1280*(на кол-во байт в  kol8)

2.в 1мб=1024 кб=1  048 576 байт

3.получам кол-во мб текста:

4096*512*1280*(на кол-во байт в  kol8)/1  048 576

  ps. по-идее  kol8 равен 1 байту

Var       s, m: integer; begin       writeln('возраст саши = ');       read(s);       writeln('возраст маши = ');       read(m);             if s > m then writeln('саша старше маши');       if m > s then writeln('маша старше саши');       if m = s then writeln('одногодки'); end.