Сколько времени понадобится для ввода в память компьютера романа Р. П. Уоррена «Вся королевская рать» и передачи файла по каналу связи со скоростью 806 400 бит/с? Известно, что на сканирование одной страницы уходит 5 с, на смену страницы – 2 с, на распознавание страницы – 5 с. Роман содержит 280 страниц, на каждую из которых в среднем приходится 3600 символов. Для записи текста в компьютерную память используется кодировка Unicode, в которой для кодирования одного символа требуется 2 байта памяти. ответ выразите в секундах

int1 = int(input())

int2 = int(input())

col1 = int(input())

col2 = int(input())

min1 = col1 + int1 * (col1 - 1 ) # Минимальное время которое она находились на платформе, согласно условиям 1 стороны платформы

max2 = col1 + int1 * (col1 + 1 ) # Максимальное время которое она находились на платформе, согласно условиям 1 стороны платформы

min1 = col2 + int2 * (col2 - 1 ) # Минимальное время которое она находились на платформе, согласно условиям 2 стороны платформы

max2 = col2 + int2 * (col2 + 1 ) # Максимальное время которое она находились на платформе, согласно условиям 2 стороны платформы

if min1 > min2 : # Находим общий минимум для обеих сторон плафтормы. Это максимальное из двух значений

totalmin = min1

else :

totalmin = min2

if max1 > max2 : # Находим общий максимум для обеих сторон плафтормы. Это минимальное из двух значений

totalmax = max2

else : # Важно помнить Минимум максимален и постепенно уменьшается. Максимум минимален и постепенно растет

totalmax = max1

if totalmin > totalmax : # Если Минимальное время больше чем максимальное, то , ошибка в подсчете, во всех других случаях интервал существует

print(-1)

else :

print(totalmin , totalmax)

# это пояснение кода, не участвующее в программе

Program day;
var 
a: array[1..30] of integer; 
b, s, i, min: integer;
begin 
min := 999; 
Randomize; 
for i := 1 to 30 do   begin   
a[i] := random(9, -3);   
s := s + a[i];   
Write(a[i]:3); 
end; 
Writeln; 
Writeln('Ниже нуля '); 
for i := 1 to 30 do   begin    if a[i] > 0 then Write(i,'-го ');   
end;   
if a[i] = 0 then b := b + 1; 
Writeln; 
for i := 1 to 30 do    
if a[i] < min then min := a[i];   
Writeln('Самая низкая температура - ', min); 
Writeln('Средняя температура ноября ', s / 30);
end.