.Скорость передачи данных через ADSL-соединение равна 256000 бит/c. Передача файла через данное соединение заняла 35 секунд. Определи размер файла в Кбайт

Размер файла I=v*t, v -скорость передачи данных, t-время передачи.

I=256000*35= 2⁸*35000 (бит)

2⁸*35000/2¹³= 35000/32=1093,75 (Кбайт)

ответ: 1093,75 Кбайт

Объяснение:

Uses Drawman;
Begin 
Field(26,10); 
ToPoint(1,2); 
PenDown; 
ToPoint(1,8); 
ToPoint(4,8); 
PenUp; 
ToPoint(1,2); 
PenDown; 
ToPoint(4,2); 
PenUp; 
ToPoint(6,2); 
PenDown; 
ToPoint(6,8); 
ToPoint(9,8); 
ToPoint(9,2); 
ToPoint(6,2); 
PenUp; 
ToPoint(13,2); 
PenDown; 
ToPoint(13,8); 
ToPoint(11,8); 
ToPoint(11,5); 
ToPoint(15,5); 
ToPoint(15,8); 
ToPoint(13,8); 
PenUp; 
ToPoint(17,8); 
PenDown; 
ToPoint(17,2);
ToPoint(20,8); 
ToPoint(20,2);
PenUp; 
ToPoint(22,2); 
PenDown; 
ToPoint(25,5); 
ToPoint(22,5); 
ToPoint(22,8); 
ToPoint(25,8); 
ToPoint(25,2); 
PenUp;
End.

Program raf105;

type Info = record

 family: string;

 year: integer;

 Score: record

   exam1: byte;

   exam2: byte;

   exam3: byte;

 end;

end;

const

 n = 3; // Количество студентов

var

 Students: array[1..n] of Info;

 i, goodStud, badStud, students1989Count, students1989ScoreSum: integer;

 midScore1989: real;

begin

 writeln('Введите информацию о ',n,' студентах');

 for i:=1 to n do

 begin

   writeln(' Студент ',i);

   write('Фамилия: ');

   readln(Students[i].family);

   write('Год рождения: ');

   readln(Students[i].year);

   writeln('Введите информацию о его оценках (от 1 до 5)');

   write('Оценка за 1 экзамен: ');

   readln(Students[i].Score.exam1);

   write('Оценка за 2 экзамен: ');

   readln(Students[i].Score.exam2);

   write('Оценка за 3 экзамен: ');

   readln(Students[i].Score.exam3);

   if Students[i].year <= 1989 then

     begin

      students1989Count:= students1989Count + 3;

      students1989ScoreSum:= students1989ScoreSum + Students[i].Score.exam1 + Students[i].Score.exam2 + Students[i].Score.exam3;

     end;

   if (Students[i].Score.exam1 = 5) and (Students[i].Score.exam2 = 5) and (Students[i].Score.exam3 = 5) then

    inc(goodStud);

   if (Students[i].Score.exam1 <= 2) or (Students[i].Score.exam2 <= 2) or (Students[i].Score.exam3 <= 2) then

    inc(badStud);

 end;

 midScore1989:= students1989ScoreSum / students1989Count;

 writeln;

 writeln('Средний студентов 1989 года рождения и старше: ',midScore1989:3:1);

 writeln('Количество отличников: ',goodStud);

 writeln('Количество задолжников: ',badStud);

end.

PascalABC