Я считаю что это-правда!! (словарь)
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825
1800(Байты)*8(в 1 Байте 8 Битов)=14400(Битов)
14400(Биты):14400(Бит/с)=1(секунда)
Ответ:1 с
Посмотрите построение графика в паскалеАВС ...
6папок т.к в 1 папке содержится 2-3 бита