сколько времени будет скачиваться файл размером 3 КБ при интернет соединении с максимальной скоростью - id1490121220201118 от марик11092 18.11.2020 07:49

Question

Информатика: сколько времени будет скачиваться файл размером 3 КБ при интернет соединении с максимальной скоростью скачивания 8192 бит

марик11092 · Accepted Answer

Var
S, chislo: string;
i,A,B,C,E: integer;
Begin
B := 0;
WriteLn('Введите выражение: ');
ReadLn(S);
i := S.length;
While (i > 0) do
begin
    Case S[i] of
      '+':
        begin
          val(chislo,A,E);
          B := B + A;
          chislo := '';
        end;
      '-':
        begin
          val(chislo,A,E);
          B := B - A;
          chislo := '';
        end;
      else
        chislo := S[i] + chislo;
    End;
    i := i - 1;
end;
if (chislo <> '') then
begin
    val(chislo,A,E);
    B := B + A;
end;
WriteLn(B);
End.

сколько времени будет скачиваться файл размером 3 КБ при интернет соединении с максимальной скоростью скачивания 8192 бит

MOGZ ответил