Исполнитель (для количества слов исполнитель,исполнитель,исполнитель,исполнитель)
Var
S, tmp: real;
n, i: integer;
begin
write('Введите n:');
readln(n);
for i := 1 to n do
begin
tmp := 1 / ((2 * i + 1) * 3);
S := S + tmp;
end;
writeln(S:8:10);
readln;
end.
Скорость=512000 бит/с
Время передачи=16 с
Размер файла=512000*16=8 192 000 бит=1 024 000 байт= 1000 Кбайт