Відповідь:
r = lambda n: sum([float(i)/n for i in range(n+1)])
Пояснення:
В цикле но через range(n+1)!
Const N=11;
var i,d,k:integer;
begin
k:=0;
repeat
k:=k+N;
d:=0;
for i:=2 to 10 do if k mod i = 1 then d:=d+1;
until (d=9) or (K>32000);
if d=9 then writeln('Искомое число = ',K)
else writeln('Число не найдено');
<span>end.</span>
Program test;
var i,n,schet:integer;s:string;
begin
readln(n);
for i:=1 to n do
s:=s+inttostr(n);
schet:=length(s);
writeln(schet);
<span>end.</span>