Внекоторой местности соединение с сетью интернет возможно только через спутник. при этом максимальная длительность однократного непрерывного сеанса связи (время "видимости" спутника) не превышает 8 минут. повторно спутник становится видимым только через 1 час 12 минут. какой наибольший объем информации можно в этом случае передать через интернет в течение суток, если скорость передачи информации составляет 100 мбит в секунду? считать, что передача информации начинается сразу с того момента, как спктник становится "видимым".

1мин_ 60 сек. 8 мин-480 сек 1 ч 12 мин-72 мин.-4320 сек 100*480=48000мбит.за 8 минут, за 1 раз в сутках 24 часа -1440мин-незн, лень умножать на 60  сек. дальше  необходимо просчитать, сколько времени уместится в сутках. 4320+420 =4740с. это одна часть 24 часа нужно разделить на 4740сек. мы узнаем сколько всего частей затем эти части умножим на 48000мбит п.с вроде логично, но я такие цифры не умножала, предлогаю только логику

Program   bolatkabylov; uses crt; const n=4; const m=5; var   s: string;       i,j,min: integer;   a: array[1..n,1..m] of integer;   b: array[1..m] of integer; begin   s: ='*** alphaeus is ***';   for i: =1 to length(s) do begin   write(s[i]);   for j: =1 to 500000 do s[i]: =s[i];   end;   writeln();   writeln('***           ok             ***');   writeln();   writeln('для заданного массива а размерности 4х5 сформировать одномерный массив в, ');   writeln('элементами которого будут минимальные элементы в  каждом столбце массива а.');   randomize;   writeln();   writeln('массив а: ');   //заполняем массив а случайными числами и выводим его     for i: =1 to n do  begin     for j: =1 to m do     begin       a[i,j]: =random(100)-50;       write(a[i,j]: 4,' ');     end;     writeln();   end;   //находим минимальные элементы в каждом столбце и сохраняем в массив в   for j: =1 to m do  begin     min: =a[1,j];     for i: =1 to n do     begin       if a[i,j]< min then min: =a[i,j];     end;     b[j]: =min;   end;   //выводим массив в   writeln();   writeln('mассив b: ');   for j: =1 to m do     write(b[j]: 4,' '); end.

Var a: string; b,c,v,s: byte; begin b: =0; c: =0; writeln('введите строчку'); readln (a); repeat   inc (b);   if (a[b]=' ') or (b=length(a)) then   begin   inc (c);   if (c=1) then   v: =b;   if c=2 then   begin   if (b=length(a)) then   delete(a,v,b-v+1)   else   delete(a,v,b-v);   b: =b-(b-v);   c: =0;   end;   end   else continue; until b> length(a) ;   writeln(a); readln; end. это вот программа по подсчёту пробелов. эту давно писал, а сейчас занят, поэтому только идею