Контекстное, вроде больше нет
2)program 2;
var
k:integer;
<span>
tmp:real;</span><span>
b:string;</span><span>
c:string;</span><span>
i:integer;
</span>
begin
<span>
k:=0; i:=0; tmp:=0;</span><span><span>
write('</span>Введите k:');</span><span>
read(k);</span><span>
repeat</span><span>
tmp:=exp(i*ln(10));</span><span>
str(tmp:0:0, c);</span><span>
b:=b+c;</span><span>
i:=i+1;</span><span>
until length(b) >= k;</span><span>
c:=copy(b, k, 1);</span><span>
writeln(b);</span><span>
writeln('k-я цифра:', c);</span><span>
readln(k);</span>
<span>end.</span>
Алгоритм простой, нам нужно как-то обсчитать расстояние точек друг от друга. Делается это формулой sqrt((x1-x2)^2 + (y1-y2)^2).
Потом мы в цикле сравниваем по 2 точки и ищем максимальное расстояние.
40*60*176=422400 байт
422400/1024=412,5 Кбайт
412.5/1024= 0.4 Мбайт