Написать программу , какая сумма накопется за определённое время в 13%(паскаль) использовать эту структуру

1. Определим скорость передачи в Мб/с

1 байт = 8 = 2³ бит.

1 Мбайт = (2¹⁰)² = 2²⁰ байт = 2²⁰ × 2³ = 2²³ бит.

Скорость 2¹⁸ бит/с равна 2¹⁸ / 2²³ = 2⁻⁶ Мбайт/с

2. Определим время, необходимое для передачи файла по А

10 Мбайт / 2⁻⁶ Мбайт/с = 10 × 32 с = 320 с

3. Определим время, необходимое для передачи файла по Б.

Объем файла после архивации составит 30% от объема исходного, следовательно и время передачи файла также будет составлять 30% от времени по варианту А.

320 с × 0.3 = 96 с

И еще 7 + 1 = 8 с нужны на подготовку файла.

Итого, время по варианту Б составит 96 + 8 = 104 с.

4. По варианту Б время меньше на 320 - 104 = 216 с, т.е. этот вариант быстрее.

ответ: Б216

Объяснение:

как то так)))

нет

Комментарии, которые могут быть вложенными (*...*) или {...} или (*...} или {...*)

Регистрозависимость нет

Регулярное выражение идентификатора переменной [A-Za-z_][A-Za-z0-9_]*

Регулярное выражение идентификатора функции [A-Za-z_][A-Za-z0-9_]*

Присваивание значения переменной varname := value

Объявление переменной varname: type

Объявление переменной с присваиванием значения varname: type = value

Группировка выражений ( ... )

Блок begin ... end

Тождественное равенство =

Тождественное неравенство <>

Сравнение < > <= >=

Определение функции function f(p1: type1; p2: type2; ...): returntype;

Вызов функции f(a, b, ...)

Вызов функции без параметров f

Последовательность ;

Если - то if condition then trueBlock

Если - то - иначе if condition then trueBlock else falseBlock

Бесконечный цикл while true do loopBody

Цикл с предусловием while condition do loopBody

Цикл с постусловием repeat loopBody until condition

Цикл for - next для диапазона целых чисел с инкрементом на 1 for i := first to last do loopBody

Цикл for - next для диапазона целых чисел с декрементом на 1 for i := last downto first do loopBody

Объяснение: