Тема по среде Pascal!!!

Question

Помогите пожалуйста сложить программу, чтобы посчитать количество какой-нибудь из цифр (0-9) в последовательности от 1 к 999 999 !!!Заранее благодарен! ;)

Анастасия Пивоварова · Accepted Answer

Индусский код ^_^ 
 
PROGRAM lab3; 
 
VAR 
 digit :array[0..5] of Integer; 
 i :Integer; 
 digitToSearch :Integer; 
 currentNumberLength :Integer; 
 result :Longint; 
 
BEGIN 
 
{ цифра, которую будем искать } 
digitToSearch := 3; 
 
FOR i := 0 TO 5 
DO digit[ i ] := 0; 
 
result := 0; 
currentNumberLength := 0; 
 
REPEAT 
 
 inc(digit[0]); 
 
 FOR i := 0 TO 4 
 DO IF digit[ i ] = 10 
 THEN BEGIN 
 inc(digit[i+1]); 
 digit[ i ] := 0; 
 IF currentNumberLength < i+1 THEN currentNumberLength := i+1; 
 END; 
 
 FOR i := currentNumberLength DOWNTO 0 
 DO IF digit[ i ] = digitToSearch THEN inc(result); 
 
UNTIL (digit[0] = 9) AND 
 (digit[1] = 9) AND 
 (digit[2] = 9) AND 
 (digit[3] = 9) AND 
 (digit[4] = 9) AND 
 (digit[5] = 9); 
 
WriteLn('Насчитали цифр ', digitToSearch, ': ', result); 
ReadLn; 
 
END.