На пк после запуска ничего нет, только когда мышкой вожу курсор видно(трогал длл opengl32 и hig)

👇

Открыть все ответы

Ответ:

kolomietslina

08.07.2021

Const
   N = 7; // количество наименований товаров
Var
   A:array[1..N,1..3] of integer;
   i,k,S:integer;
Begin
For i:= 1 to N do
    Read(A[i,1],A[i,2],A[i,3]);
k:=0;
For i:= N downto 1 do
    if A[i,2] = 0 then k:=i;
if k > 0 then
   Begin
   Write('00 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 0 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 1 then k:=i;
if k > 0 then
   Begin
   Write('01 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 1 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 10 then k:=i;
if k > 0 then
   Begin
   Write('10 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 10 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 11 then k:=i;
if k > 0 then
   Begin
   Write('11 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 11 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
End.

Пример работы программы:

17 1 2
3 0 5
7 1 4
8 11 9
95 0 3
31 10 44
5 1 6
00 - 15+285=300
01 - 34+28+30=92
10 - 1364
11 - 72

4,7(39 оценок)

Ответ:

Olesyalesya55

08.07.2021

1)Все просто $\frac{32*1024*8}{4096} = \frac{x}{256}$
Почему так? Все просто в левой части уравнения приведена формула времени за которое передастся файл размером 32*1024*8 (переводим в биты) и справа также приведена формула времени передачи файла размером x со скоростью 256 б/с. приравниваем одно к другому дальше выражаем x и просто считаем
получится x=16384 бита или 2048 байта.
2) $\frac{ 2^{20} }{8*1024} = \frac{ 2^{20} }{ 2^{3}* 2^{10}} = \frac{ 2^{20} }{ 2^{13}} }= 2^{7} =128$ Кбайт (надеюсь обьяснять как переводить из бит в байты Кбайты и т.д. не надо?)
3) также как и раньше сначала переводим всё в биты
375 Кбайт=375*1024*8 бит
и расчитываем по формуле v=s/t (аналогия из математики)
$v= \frac{375*1024*8}{24} =128000$ бит в секунду
4)также как и раньше только теперь t=s/v
$\frac{500*1024*8}{256000} =16$ секунд
5)точно такая же как и раньше только теперь s=vt ну и перевести в Кбайты не забудь $s= \frac{256000*16}{8*1024} =500$ Кбайт