Өз аты-жөндерің экранға 6рет шығатын даи программа құрастырып, дәптерлеріңе жазыңдар

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

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 кбайт

1000 байт

1024 бит

1 байт

1 бит 

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.