2. Кітаптағы 110 Мб ақпаратты «Информатика» сөзінің қаншасымен ауыстыруға болады? 3. Толық аты-жөндерің - id1359817520200316 от Egorkalyadov03 16.03.2020 12:32

Question

Информатика: 2. Кітаптағы 110 Мб ақпаратты «Информатика» сөзінің қаншасымен ауыстыруға болады? 3. Толық аты-жөндерің қанша бит және байт болатынын есептеу арқылы табыңдар. (БОЛАТОВА Нурай) 41 Гб ақпаратты желіде 512 секунд ішінде тасымалдасақ, онда ақпаратты жеткізу жылдамдығы қанша болады? 5. 600 беrrік кітаптың әр бетінде 30 қатар 64 символ бар. Осы кітаптағы ақпаратты 64 Кб/с жылдамдықпен тасымалдау үшін қанша уақыт қажет?​

Egorkalyadov03 · Accepted Answer

Type   Point=record     x,y:real     end; procedure GetPoint(c:char; var A:Point);   var     x,y:real; begin   Write( Введите координаты x и y точки ,c, : );   Read(x,y);   A.x:=x; A.y:=y end; function DistPoint(A,B:Point):real; begin   DistPoint:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end; var   A,B,M:Point;   d,p,ab,ma,mb:real; begin   GetPoint( A ,A); GetPoint( B ,B); GetPoint( M ,M);   ab:=DistPoint(A,B); ma:=DistPoint(M,A); mb:=DistPoint(M,B);   if ma =ab+mb then d:=mb   else     if mb =ma+ab then...

MOGZ ответил