Решите задачу: Скорость передачи данных по некоторому каналу связи равна
256 000 бит/с.
Передача данных через это соединение заняла 2 минуты 8 секунд. Определите
информационный объём переданных данных в килобайтах.
(оформить задачу: дано, решение, ответ)

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

вся информация   в компьюторе находится в цифровом виде