Назовите хотя бы 1 героя, использовавшего унарную систему счисления

Var
S:real;
N:integer;
Begin
//Первый
S:=0;
For N:= 1 to 50 do
    S:=S+1/N;
WriteLn('S = ',S);

//Второй
S:=0;
N:=0;
Repeat
N:=N+1;
S:=S+1/N;
Until N = 50;
WriteLn('S = ',S);

//Третий
S:=0;
N:=0;
While N<>50 do
   Begin
   N:=N+1;
   S:=S+1/N;
   End;
WriteLn('S = ',S);

End.

Var
X:real;
Begin
X:=-3;
Repeat
WriteLn(X:4:1,'   ',((3*X*X-2)/4):6:3);
X:=X+0.2;
Until X>3;
End.

Var
A:real;
i,k:integer;
Begin
k:=0;
WriteLn('Введите 10 чисел');
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then k:=k+1;
    End;
WriteLn('Кол-во отрицательных: ',k);
End.

t ≈ 17c

Объяснение:

Ну, первым делом нам надо перевести 259 килобайт в биты, мы знаем, что в одном килобайте 1024 байта, а в одном байте 8 бит, то есть:

259 * 1024 * 8 = 2121728 бит

Это мы узнали объём сообщения в битах, теперь найдем время, которое понадобится для передачи этого сообщения с модема, с пропускной в 128000 бит/с. "Бит/с" нам показывает, сколько бит информации может передать этот модем за 1 секудну, ну это логично, теперь чтобы найти время, нам надо объём сообщения поделить на пропускную модема:

t = 2121728 бит / 128000 бит/с ≈ 16,6с

Ах, да, надо дать ответ целым числом, тогда t ≈ 17c