Вкинотеатре к рядов кресел. в первом ряду х кресел, в каждом последующем на у кресел больше, чем в предыдущем. стоимость одного места в первом ряду – l тенге, а в каждом последующем – на m тенге больше, чем в предыдущем. подсчитать выручку кинотеатра за один сеанс при целиком заполненном зале. цикл с параметром

Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.

Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)

Нам абсоютно безразлично что именно будет передаваться по каналу связи, главное какой объем. Итак у нас объем 100 килобайт.Переведем в байты:100 килобайт * 1024 байт в килобайте = 102400 байт.Переведем в биты:102400 * 8 бит в байте = 819200 бит. Найдем теперь пропускную скорость канала в битах в секундупоучебникам в 1 килобите чаще 1024 бита100 мбитсек = 1024*100 килобит в секунду = 1024*1024*100 бит в секунду = 104857600 бит в секунду. Разделим:819200/104857600 = 0.0078125 секундответ: 0.0078125 секунд

Const
  n = 5;

var
  a,b: array[1..n,1..n] of integer;
  c,r: array[1..n] of integer;
  i, j: integer;

begin
  Randomize;
  { инициализация }
  Writeln('Матрица a');
  for i := 1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:= Random(51);
      Write(a[i,j]:3)
    end;
    Writeln
  end;
  Writeln('Матрица b');
  for i := 1 to n do
  begin
    for j:=1 to n do
    begin
      b[i,j]:= Random(51);
      Write(b[i,j]:3)
    end;
    Writeln
  end;
  Writeln('Вектор c');
  for i := 1 to n do
  begin
    c[i]:= Random(51);
    Write(c[i]:3)
  end;
  Writeln;
  { вычисление и вывод }
  Writeln('Вектор результата');
  for i:=1 to n do
  begin
    r[i]:=0;
    for j:=1 to n do r[i]:=r[i]+c[j]*(5*a[i,j]+b[i,j]);
    Write(r[i],' ')
  end
end.

Тестовое решение:
Матрица a
 44 49 29 34  2
 48  1 33 10 24
 43 48 29  4 50
  2 14  5 25 21
 39 31 19 12 23
Матрица b
 42 32 26 10 37
 35 29  6 49 43
 42 44 10 32 11
 32 20  3 11 41
 22 40  9 35 10
Вектор c
 39  9 23 45 44
Вектор результата
26812 26591 29968 15636 22385