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>
При рисовании пятиконечной звезды Черепаха совершает два оборота, т.е. 720 градусов.Делим 720 на пять поворотов и даём поправку в 40 градусов.x = 720/5 + 40 = 144 + 40 = 184.<span>Подходит также второй вариант угла: 360-144 = 216, который с поправкой на 40 градусов даёт замечательное число 256.</span>
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.