2)program 2;
var
k:integer;
tmp:real;
b:string;
c:string;
i:integer;
begin
k:=0; i:=0; tmp:=0;
write(Введите k:);
read(k);
repeat
tmp:=exp(i*ln(10));
str(tmp:0:0, c);
b:=b+c;
i:=i+1;
until length(b) >= k;
c:=copy(b, k, 1);
writeln(b);
writeln(k-я цифра:, c);
readln(k);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.