Две задачки

[Scooby_Doo]

1)Даны целое число k (1=<k=<222) и последовательность цифр 123...91011...9899100101...109110, в которой выписаны подряд все натуральные числа от 1 до 110.Определить k-ю цифру.

2)Вывести в выходной файл в обратном порядке заданный во входном файле текст


Помогите решить,пожалуйста..если можно,то с разъяснениями..с программированием очень плохо...заранее благодарю)))

[rubius2008]

Сообщение от Scooby_Doo

1)Даны целое число k (1=<k=<222) и последовательность цифр 123...91011...9899100101...109110, в которой выписаны подряд все натуральные числа от 1 до 110.Определить k-ю цифру.

2)Вывести в выходной файл в обратном порядке заданный во входном файле текст


Помогите решить,пожалуйста..если можно,то с разъяснениями..с программированием очень плохо...заранее благодарю)))

Если все решить и объяснить, то пиши в асю 600-927-970

[Scooby_Doo]

Может быть в агенте??
Ася не работает((

[Mad_Cat]

1)

var
s,st:string;
k,i:integer;
begin
readln(k);
s:='';
st:='';i:=1;
while (length(s)<=k) and(i<=110) do begin
str(i,st);
s:=s+st;
inc(i);
end;
writeln(s[k]);
end.

2

//разворачивает каждую строку
var f1,f2:text;
s:string;
i:integer;
begin
assign(f1,'i.txt');
assign(f2,'o.txt');
reset(f1);
rewrite(f2);
while not eof(f1)do begin
readln(f1,s);
for i:=length(s) downto 1 do
write(f2,s[i]);
writeln(f2);
end;
close(f1);
close(f2);
end.

[Scooby_Doo]

спасибо большое)