<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)
Var x,a,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
a:=-1;
for i:=1 to n do
begin
a:=-a*x;
s:=s+a/i;
end;
writeln('s = ',s);
end.
Пример:
x = 0.5
n = 4
s = 0.401041666666667
A=1024
b=1024
V=512 КБ
Найти N
N=2^I
V=a*b*I I=V/a*b ( переводим 512Кб в биты в числителе) 1пиксель=1 бит в знаменателе
I=512*1024*8/1024*1024= 4 бит
N=2^4=16 цветов в палитре
Писать можно было и на пергаменте. Да и вообще, коварные китайцы изобрели бумагу и нихотели делится ею со всем миром. Напоминяет историю с шолком, его технологию китайцы тоже долго хранилили в строжайшей тайне.