Информатика, опубликовано 2018-08-22 22:56:54 by Гость
1. Дана последовательность из N (2
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на