Pomoc oko zadatka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Dat je prirodan broj K od 1 do 2889. Napisati program kojim se odredjuje i ispisuje koja cifra se nalazi na K-toj poziciji niza 123...998999, u kome su redom ispisani prirodni brojevi od 1 do 999.


Unapred hvala!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Postavi ono sto si vec uradio, pa da vidimo de je zapelo.
Tesko da ce neko da ti uradi ceo zadatak (mada uopste nije tezak).

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa evo resenje

program cifra; var       k,n : integer; begin       readln(k);       if k<10 then writeln(k)       else if k < 190 then begin       n := 10 + (k - 10) div 2;                 case (k mod 2) of                          0: writeln(n div 10);                          1: writeln(n mod 10);                 end;       end       else if k < 2890 then begin       k := k - 190;       n := 100 + k div 3;                  case (k mod 3) of                          0: writeln(k div 100);                          1: writeln(k mod 100 div 10);                          2: writeln(k mod 10);                  end;       end; end.