Минимально и нужно , интересно где еще такое задают
10+7=17
роде правильно !!!!!!!!
<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var L:=new List<(string,real)>;
// это не решение задачи, это ввод данных
Writeln('Введите в каждой строке фамилию, пробел, время');
var i:=1;
repeat
var s:=ReadlnString(i+': ');
if s[1]='*' then break;
var w:=s.ToWords;
L.Add(Rec(w[0],real.Parse(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)
1.Переведём Кбайты в байты: 15(Кбайт) * 1024(байт в 1 Кбайт) = 15360 байт (кол-во файла).
2.Найдём скорость соединения: 15360 байт / 120 сек = 128 байт/с (байт в секунду).
Переведём дополнипельную скорость соеднения: 512(бит/с) / 8(бит в 1 байт) = 64 байт/с.
Теперь скорость будет равна 128 байт/с + 64 байт/с = 192 байт/с
Осталось найти время передачи: 15360(байт) / 192(байт/с) = 80с
Ответ: 80секунд.