Pakshin A. S. помотри код, который я привел выше... даже для очень большого числа - количество вычислений мало и без всяких там IntToStr

Это сообщение отредактировал(а) Girder - 15.10.2004, 20:26

Буду разбираться, спасибо!

Вариант 1 Pakshin'а - работает неправильно, когда число последовательности доходит до 99 (k=190..192), дальше идёт 10, потом 11 и т.д.
Вариант 2 Пакшина уже на 10 выдаёт 9

Вариант X77 работает правильно, но он неоптимален, из-за того, что всё опирается на строки, и если k=10000000, то в итоге сгенерится строка такой длины...

Варианты 1 и 2 Максима при K=10 выдают 0, хотя если смотреть дальше, то второй вариант почти правильный, кроме случаев когда число последовательности кратно 10 (т.е. идёт так: 39304142), а самое интересное начиается на k=90: 4748496777788899...

Вариант Спауна: я не понял что он делает

Вариант Гирдера оказался правильным, и в виду того, что не использовались строки, массивы, я ставлю ему плюс

Цитата(p0s0l @ 15.10.2004, 21:50)

Вариант 2 Пакшина уже на 10 выдаёт 9

Чёрт, не тот вариант...

Код

program N4_2; {$APPTYPE CONSOLE} uses  SysUtils; var k,i,x:int64; a,s:int64; begin readln(k); i:=1; a:=1; while i <= k do  begin   s:=a;   if a = 10    then     {Вот это дополнение}     if i = k      then       dec(i)      else       inc(i);   while (s <> 0) and (i <= k) do    begin     x:=s mod 10;     s:=s div 10;     inc(i)    end;   if i <= k    then     inc(a)  end; writeln; writeln(x); readln end.

Подавьте меня: я - идиот!!! Можете при встрече на меня пальцем показывать...

Код

program N4_2; {$APPTYPE CONSOLE} uses  SysUtils; var k,i,x:int64; a:int64; s:string; begin readln(k); i:=1; a:=0; while i <= k do  begin   inc(a);   s:=IntToStr(a);   while (i <= k) and (s <> '') do    begin     if i < k      then       Delete(s, 1, 1);     inc(i)    end  end; x:=StrToInt(s[1]); writeln; writeln(x); readln end.

Как теперь?

Теперь правильно

Но плюса уже не будет

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

Цитата(p0s0l @ 16.10.2004, 01:12)

Но плюса уже не будет

Ну и что? Мне - главное решить задачу самостоятельно!!!!

Цитата(p0s0l @ 16.10.2004, 01:12)

Придумывай еще задачку.

Я её не придумывал, мне её дали. Если что-нибудь интересное будет, то обязательно выложу, а пока всё скучно...

Это сообщение отредактировал(а) Pakshin A. S. - 17.10.2004, 13:09

Цитата

Дано натуральное k. Напечатать k-ую цифру последовательности: 123456789101112131415161718192021222324...

Если к-ую цифру... Это-же последняя цифра?
Или вдруг её вооще нету?

SoWa не факт! у числа 13 к-ая цифра будет 12345678910111213