Решите кросворд По горизонтали: 2. Современный нецифровой носитель информации. 3. Пакет магнитных дисков. 5. «Шум», искажение передаваемого сигнала. По вертикали: 1. Техническое изобретение, позволившее создать оптические диски. 4. Преобразование информации в форму, пригодную для передачи

Задача по расчету объемов информации.

Итак 1.5 Кб передаются за 210 секунд.  Переведем 1.5 Кб в байты 1кб=1024 байт

1.5 умножим на 1024 = 1536 байт.

Рассчитаем пропускную канала связи.

Для этого разделим объем на время.

1536/210

теперь

Узнаем скорость передачи второго файла.

Объем 512 байт, будет передаваться 512/(1536/210)=70 секунд.

Можно пойти другим путем и увидеть, что 512 это ровно в три раза меньше чем 1.5 кб и тогда понятно что файл, который имеет в три раза меньший размер будет передаваться в три раза быстрее, значит 210/3=70 секунд

70 секунд. 512/(1,5*1024/210)=70

Программа №1.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, h, s:real;
begin
   writeln('Enter a, b and h');
   readln(a, b, h);
      s:=(0.5*(a+b))*h;
   writeln('Area of the trapezoid=', s);
   readln;
end.

Программа №2.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, s:integer;
begin
   writeln('Enter the price and quantity');
   readln(a, b);
      s:=a*b;
   writeln('Cost of purchase=', s);
   readln;
end.

Программа №3.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, w:real;
begin
   writeln('Enter the speed and time');
   readln(a, b);
      w:=a*b;
   writeln('Way=', w);
   readln;
end.


Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).