Просьба помочь с задачей.

[kry]

Задача.
Для заданного К вычислить К-тую цифру последовательности.
2 4 6 8 10 12 14 16 18 20 .. .. .. .. .. ... (все натуральные четные числа)
то есть если нада вычислить 10ую цифру последовательности то она будет равна 4

2 4 6 8 10 12 14 16 18 20 .. .. .. .. .. ...


Лаба идет к теме циклов.
Если есть возможность то можно не использовать массивы.
Хотя если ее нету то напишите пожалуйста хоть как нить.
Дальше уже сам переделаю

Заранее спасибо



С уважением Владимир.

[kry]

Ах да ... совсем забыл.
Задача должна быть решена до завтрашнего утра.


P.S. Пока сижу сам думаю.

[alex_fcsm]

var s:string;
    i,k,j:integer;
begin
writeln('Input');
readln(s);
writeln('Number');
readln(k);
j:=0;
    for i:=1 to length(s) do
     begin
      if s[i] in ['0'..'9'] then inc(j);
       if j=k then begin
                    writeln('Digit ',s[i]);
                    break;
                   end;
     end;
end.

P.S. Здесь Вам никто ничего не должен

[kry]

Я понимаю что никто не должен, просто пытался сформулировать условия задачи.
Извините если что и спасибо за помощь.

[kry]

Хм... странноватый алгоритм.
Дело в том что вряд ли последовательность можно представить как строку.
Скорее всего это будет просто массив или...такс у мну появилась идея щас попробую осуществить.

[alex_fcsm]

Так Вам с этой последовательностью ничего делать не надо. Какая разница как ее интерпретировать...

[kry]

Вот что я прикинул

program lab8;

const MAX=99;
var
     i,i2,j,k,mx,count: Integer;

begin
     Writeln('VVedite maximalnoe chislo posledovatelnosti');
     readln(mx);
     k:=0;
     for i:=1 to mx do
         begin
         k:=k+2;
         write('',k,' ');
         if((k div 10)) >= 1 then count:=count+2
         else
         count:=count+1;
         if(count=mx) then break
         end;
writeln('count=',count);
readln;
end.

Терь осталось как то вывести на экран именно ту цифру которая нужна.

[kry]

Помогите дальше развить идею )

[puporev]

Помогаем развивать дальше.

uses crt;
var i,j,k,n,o:integer;
    a,t:longint;
begin
clrscr;
write('Введите k=');readln(k);
t:=0;i:=0;
repeat
t:=t+2;{если здесь t:=t+1, то будет искать цифру ряда       1234567891011121314...}
j:=t;
while j>0 do{считаем количество цифр в числе и добавляем к общему количеству}
    begin
      j:=j div 10;
      i:=i+1;
    end;
until i>=k;{дошли до номера к}
while i>=k do{возвращаемся по цифрам последнего числа до нужной}
         begin o:=t mod 10;
               t:=t div 10;
               i:=i-1;
         end;
      writeln('k-я цифра:',o);
readln
end.

[kry]

Огромное тебе спасибо все работает как надо )