Еще одну =( program pasha; const pi=3.14; var n: integer; z: real; r, d, l, s: real; begin writeln('введите номер элемента n='); readln(n); writeln('введите значение элемента z='); readln(z); case n of 1: begin r: =z; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=', r); writeln('диаметр d=', d); writeln('длина l=', l); writeln('площадь круга s=', s); end; 2: begin r: =z/2; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=', r); writeln('диаметр d=', d); writeln('длина l=', l); writeln('площадь круга s=', s); end; 3: begin r: =z/(2*pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=', r); writeln('диаметр d=', d); writeln('длина l=', l); writeln('площадь круга s=', s); end; 4: begin r: =sqrt(z/pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=', r: 2: 0); writeln('диаметр d=', d: 2: 0); writeln('длина l=', l: 2: 2); writeln('площадь круга s=', s: 2: 2); end; else writeln('ошибка'); end;

Const   p = 3.14;   //число "пи" var   n:   byte;   r, d, l, s:   real; begin   {сообщаем кратко данные : }   writeln(' пусть в окружности: ');   writeln(' 1)r - радиус; ');   writeln(' 2)d - диаметр; ');   writeln(' 3)l - длина; ');   writeln(' 4)s - площадь круга.');   writeln;   writeln(' введите номер одной из величин (от 1 до 4): ');   write('  n = ');   readln(n);   //вводим номер величины.   {здесь используем цикл. запрашивается ввод до тех пор, пока   номер n не будет лежать в диапазоне [1, 4]: }     while   (n < 1)or(n > 4)   do//условие вхождения в цикл.       begin         writeln(' такого номера здесь нет! ');         writeln(' введите другой номер (от 1 до 4): ');         write('  n = ');         readln(n)  //снова вводим номер.       end;   writeln;   {сообщаем о том, какую величину мы ввели,   а потом запрашиваем ввести её значение: }   write(' это ' );       case   n  of       1:   begin                 writeln('радиус окружности. введите его значение: ');                 write('  r = ');                 readln(r)                end;       2:   begin                 writeln('диаметр. введите его значение: ');                 write('  d = ');                 readln(d)                end;       3:   begin                 writeln('длина окружности. введите её значение: ');                 write('  l = ');                 readln(l)                end;       4:   begin                 writeln('площадь круга. введите её значение: ');                 write('  s = ');                 readln(s)                end                    end ;     writeln(' тогда для остальных величин будем иметь: ');   writeln;   {используя соотношения d = 2*r, l = 2*p*r, s = p*sqr(r),    выразим последовательно  три  величины через четвертую: }     case   n  of       1:   begin{здесь дано r. находим d, l и s: }                 writeln(' диметр: d = ', 2 * r);                 writeln(' длина: l = ', 2 * p * r);                 writeln(' площадь: s = ' , p * sqr(r))                end;       2:   begin{здесь дано d. находим r, l и s: }                 writeln(' радиус: r = ', d / 2);                 writeln(' длина: l = ', p * d);                 writeln(' площадь: s = ', p * sqr(d / 2))               end;       3:   begin{здесь дано l. находим r, d и s: }                 writeln(' радиус: r = ', l / p / 2);                 writeln(' диаметр: d = ', l / p);                 writeln(' площадь: s = ' , sqr(l) / p / 4 )                end;       4:   begin{здесь дано s. находим r, d и l: }                 writeln(' радиус: r = ', sqrt(s / p): 7: 4);                 writeln(' диаметр: d = ', 2 * sqrt(s / p): 7: 4);                 writeln(' длина: l = ', 2 * sqrt(p * s): 7: 4)               end                  end  end .

1) 2  мбайта =2*2^(23) бита ;         16=2^4; 2*2^(23)   :   2^4 = 2^(20) = 1048576 символов в сообщении 2) 3*40*60=7200 количество символов 14400*2^3  : 7200 = 16 бит для одного символа 3) 10 кбайт =10*2^13 бит =5*2^14 бит 8*32*40 =2^3 * 2^5 *2^3 *5 =5*2^11 (5*2^14) : (5*2^11) = 2^3 = 8 бит для одного символа 2^8 = 256  допустимых  символов в алфавите 4) 2*32*40 =2*  2^5* 2^3* 5 =5*2^9 символов на листе, на двух страницах 8 кбайт =8*2^13 бит =2^16 бит       2^16 : 2^3 =2^13 символов в тексте 2^13 : (5*2^9)=2^4 : 5 =3,2 = 4 листа

Летающий автобус) 1. мест в эконом-классе 120, а в бизнес-классе 40. 2. 100 процентов прибыли получим, если заполним все места. билет в эконом-классе стоит в 2 раза меньше чем x. получаем следующее уравнение: 40*x + 0.5*120*x = 100%, x = 1% от всей прибыли.  значит один билет в бизнес - классе приносит один процент прибыли. а один билет в эконом-классе приносит 0.5 процента прибыли. 3. осталось рассчитать прибыль компании учитывая непроданные билеты: p = 100 - b - 0.5*a  и написать программу: var a,b: integer; begin   repeat       writeln('введите количество непроданных билетов (a,b)');       readln(a,b);   until (a< =120) and (b< =40)and (a> =0) and (b> =0);   writeln('прибыль компании составит ',100-b-0.5*a,'%'); end.