ТАБЛИЦЫ ИСТИННОСТИ ИНФОРМАТИКА.
нужно решить 10 задач(можно даже без подробного решения)

program DotsAndKvadrants;

type

 dot = record

   x, y: real;

 end;

begin

 var n := 2;

 var a := new dot[n];//массив из точек

 for var i := 0 to n - 1 do

 begin

   (a[i].x, a[i].y) := ReadlnReal2($'Введите через пробел координаты {i+1} точки:');

   if a[i].x * a[i].y <> 0 then

   begin

     Write('Точка ', a[i], ' расположена в');

     if a[i].x * a[i].y > 0 then  

       if a[i].x > 0 then writeln(' 1-ом квадранте')

       else writeln(' 3-ем квадранте')

     else if a[i].x > 0 then writeln(' в 4-ом квадранте')

     else writeln('о 2-ом квадранте');

   end

   else if a[i].x = 0 then

     if a[i].y = 0 then

       Writeln('точка ', a[i], ' - начало координат')

     else Writeln('точка ', a[i], ' лежит на оси OX')

   else Writeln('точка ', a[i], ' лежит на оси OY')

 end;

end.

Общий вес текста/сообщения

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

K = 600 * 36 * 64 шт = 1382400 шт

Пусть i = 8 бит (Кодировка ASCII)

Вес текста I = 1382400 * 8 бит = 11059200.0 бит

11059200.0 бит = 1382400.0 байт = 1350.0 Кбайт = 1.318359375 Мбайт = 0.0012874603271484375 Гбайт = 1.257285475730896e-06 Tбайт

11059200.0 бит = 10800.0 Кбит = 10.546875 Мбит = 0.0102996826171875 Гбит = 1.0058283805847168e-05 Tбит

[65536, 11059200.0]

t = I / v (t - время передачи, I - объем данных, v - скорость передачи)

Время t = 11059200.0 / (64 * 1024) = 168.75 c = 2.8125 минут