Author: User
Last saved by: marina

Олимпиада по информатике (8-9 класс)

Ответы:
1)	3
2)	КГДТ
3)	1023
4)	 30
5)	Две 
6)	На Бейсике
PRINT "Vvedite k"
INPUT k
t = 0
i = 0
DO
 t = t + 1
 j = t
 WHILE j > 0
  j = j \ 10
  i = i + 1
 WEND
LOOP UNTIL i >= k
WHILE i >= k
 o = t MOD 10
 t = t \ 10
 i = i - 1
WEND
PRINT "otvet:"; o

На Паскале

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