Дано натуральное k. Напечатать k-ю цифру последовательности 149162536..., в которой выписаны подряд квадр

[kent2102]

Дано натуральное k. Напечатать k-ю цифру последовательности 149162536..., в которой выписаны подряд квадраты всех натуральных чисел.

Помогите запустить?

program lb2;
var a,t,p:real; i,k,s:integer;
begin
read(k);
i:=1;
for i:=1 to 20 do
begin
a:=i*i;
write(a);
end;
begin
if (a>=10) and (a<100) then
s:=s+2
else
s:=s+1;
for i:=1 to (s-k) do
begin
if s>k then
t:=a-trunc(a/10)*10;
write('t=',t)
else
if s=k then
p:=trunc(a/10);
write('p=',p)
end;end;end.

Спасибо!!!

[Stilet]

Помоему тут стратегия вкорне неверна.
Тут мне кажется проще будет с нуля все переделать.
Преврати вводимое число в строку и тупо получи i-тый элемент этой строки...

[kent2102]

Stilet: А как это ещё сделать не подскажешь пожалуйста?

[Serge_Bliznykov]

вот, реализация идеи Stilet'а, только с оптимизацией, чтобы не упереться в максимальную длину строки:
храним только сумму длин всех ранее встреченных чисел и одну строчку, в которой текущее значение квадрата числа.

{
  Дано натуральное k. 
    Напечатать k-ю цифру последовательности 149162536..., 
    в которой выписаны подряд квадраты всех натуральных чисел.}

var k, CurLen : integer;
  i, iSQR : Longint;
  sSQR : string;
begin
  WriteLn('Введите k');
  ReadLn(k);
  CurLen := 0;
  i := 1;
  iSQR := SQR(i);
  str(iSQR,sSQR);
  WriteLn('>'+sSQR+'<');
  while (CurLen+Length(sSQR)) < K do 
  begin
    CurLen := CurLen + Length(sSQR);
    inc(i);
    iSQR := SQR(i);
    str(iSQR,sSQR);
    WriteLn('>'+sSQR+'<');
  end;
  WriteLn(k:1,'-я цифра в последовательности = ',Copy(sSQR,K-CurLen,1));
end.

операторы WriteLn('>'+sSQR+'<'); здесь просто для красоты (и тестирования).
эти строчки можно (и нужно!) удалить!

[kent2102]

Спасибо Serge_Bliznykov!

[Stilet]

Я то думал просто превратить в число и взять S[k]-й элемент...

[Serge_Bliznykov]

Stilet, Виталий, я понял, что Вы предлагали сделать
можно и так сделать.
но, дело в том, что в этом случае K не может быть более 255...
а алгоритм не сильно проще получается...
а при алгоритме, реализованном в подходе и 30000-й элемент легко находится )) (а если K и CurLen сделать типа longint - так и больше найдётся... ;-)

[Наралм]

А помогите пожалуйста сделать такую же задачу только с Сишке!!!!!!!!!

В чистом Си в смысле.....
очень прошу!!!!

[Serge_Bliznykov]

Наралм, так в чём проблема?
Вы знаете "чистый" C ?
Тогда перепишите предложенный выше код с Delphi на C


p.s. к сожалению я не знаю ни "чистого", ни "грязного" C - поэтому конкретным кодом помочь не могу...

[Stilet]

С потолка:

int k=7;
int _tmain(int argc, _TCHAR* argv[])
{
	int i=1,l=0,e,m,r=0;
	for(k;k;i++){
		e=i*i;m=0;
		for(int p=e;p && k;p/=10,k--) m++ ;
	};
	for(;m;m--){ 
		l=e%10;
		e/=10;
	}
	printf("%d",l);getchar();
	return 0;
}

Особо не проверял