Var
i, //номер члена последовательности
n: integer; //длина последовательности
a: double; //заданное число
Begin
//--------------------------------------Ввод данных----------------------------------------------------
write('Введите длину последовательности: ');
read(n);
write('Введите a: ');
read(a);
//-----------------------------Вывод последовательности-------------------------------------------
i:=2;
write('Последовательность: ',1);
while i <= n do begin
write(' ',1+1/i:0:4); //4 - количество цифр после запятой, если нужна
большая точность можно увеличить это число
i:=i+1;
end;
writeln();
//------------------------------Вывод требуемых чисел----------------------------------------------
write('Числа меньше а: ');
i:=2;
if a > 1 then write(1);
while i <= n do begin
if 1+1/i < a then write(' ',1+1/i:0:4); //если i-й член последовательности < a,
то печатаем это число
i:=i+1; //переходим к следующему числу в последовательности
end;
End.
Думаю, что это КОЛОНКА.... или ДИНАМИК или НАУШНИК...
S, a - должны быть целочисленными, а не вещественными.
Кабель с витыми проводами :
2^-10 гбит/с
800*1024=819200 с =227,6 ч
коаксиальные :
1 гбит/с
800 с
оптические :
2^10 гбит/с
800/1024=0.78 с
радиолинии :
10 гбит/с
800/10=80 с