Linux
...............
Линикс
К архиваторам. Это лучший и бесплатный архиватор
Задача не оптимальная и бредовая, что значит заменить все буквы? Удалить елемент, а затем на его место вставить новый, или просто заменить контекст одной буквой на вторую? Все это елементарно лечится отсеиванием ещё до внесения в список, зачем предпренимать лишние телодвижения?.. Тем не менее код в соотвествии с ТЗ, наверное
Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>