Пользователь водит текст с клавиатуры со скоростью 90 знаков в минуты. какое количество информации будет содержать текст, который он набрал 15 минут (используя компьютерный алфавит)? дано: v=90 зн/мин, t=15 мин , n=256. найти : l t-? решите : *

K=a=vt=90*15=1350 симв 2^i=n 2^i=256 2^i=2^8 i  =  8 бит = 1 байт i=ik=1 байт * 1350 симв = 1350 байт  ≈ 1,3 кб

Type   point = record       x: integer;       y: integer;   end;   line = record       p: point;       q: point;       len: double;   end; procedure linelength(var pl: line);   // вычисляет и сохраняет значение длины отрезка begin   pl.len : = sqrt(sqr(pl.q.x - pl.p.x) + sqr(pl.q.y - pl.p.y)) end; var   a, b, c, d: point;   ab, ac, ad, bc, bd, cd: line; begin   writeln('введите попарно координаты четырех точек');   readln(a.x, a.y, b.x, b.y, c.x, c.y, d.x, d.y);   with ab do   begin       p.x : = a.x; p.y : = a.y; q.x : = b.x; q.y : = b.y; linelength(ab);   end;   with ac do   begin       p.x : = a.x; p.y : = a.y; q.x : = c.x; q.y : = c.y; linelength(ac);   end;   with ad do   begin       p.x : = a.x; p.y : = a.y; q.x : = d.x; q.y : = d.y; linelength(ad);   end;   with bc do   begin       p.x : = b.x; p.y : = b.y; q.x : = c.x; q.y : = c.y; linelength(bc);   end;   with bd do   begin       p.x : = b.x; p.y : = b.y; q.x : = d.x; q.y : = d.y; linelength(bd);   end;   with cd do   begin       p.x : = c.x; p.y : = c.y; q.x : = d.x; q.y : = d.y; linelength(cd);   end;   writeln(ab.len, ' ', ac.len, ' ', ad.len, ' ', bc.len, ' ', bd.len, ' ', cd.len);   if ab.len = cd.len then begin       // ab и cd - претенденты       if ac.len = bd.len then // нашли abdc           writeln('параллелограмм abdc')       else       if ad.len = bc.len then // нашли abcd           writeln('параллелограмм abcd')   end   else   if ac.len = bd.len then begin           // ac и bd - претенденты       if ad.len = bc.len then // нашли acbd           writeln('параллелограмм acbd')           else       if ab.len = cd.len then // нашли abcd           writeln('параллелограмм acdb')   end       else   if ad.len = bc.len then begin               // ad и вс - претенденты       if ac.len = bd.len then // нашли adbc           writeln('параллелограмм adbc')               else       if ab.len = cd.len then // нашли adcb           writeln('параллелограмм adcb')   end   else       writeln('параллелограмм построить невозможно'); end. контрольный прогон: введите попарно координаты четырех точек 5 1 10 3 8 9 3 6 5.3851648071345 8.54400374531753 5.3851648071345 6.32455532033676 7.61577310586391 5.8309518948453 параллелограмм построить невозможно введите попарно координаты четырех точек 5 1 10 4 8 9 3 6 5.8309518948453 8.54400374531753 5.3851648071345 5.3851648071345 7.28010988928052 5.8309518948453 параллелограмм abcd введите попарно координаты четырех точек 5 1 8 9 10 4 3 6 8.54400374531753 5.8309518948453 5.3851648071345 5.3851648071345 5.8309518948453 7.28010988928052 параллелограмм acbd