Delphi, подсчет цифр

[Asdman]

Попросили помочь с задачкой, синтаксиса Delphi я не знаю и могу потратить какое-то времени на освоение. Прошу помощи.

Сколько и каких именно цифр необходимо, чтобы записать все числа от k1 до k2?

Программа мне представляется двумя текстовыми полями и кнопкой.
Вижу простое решение "в лоб":
Собрать строку вида k1k(1+1)k(1+2)..k(2)
Потом перебрать посимвольно через цикл, сохраняя каждую цифру, как ключ массива и увеличивая значение на единицу. Потом выводим ключи массива со значениями и количеством цифр в склеенной строке.

[Poma][a]

type
	TArr = array ['0'..'9'] of Integer;

procedure InitArr (var lot : TArr);

var
	i : Char;

begin

	for i := '0' to '9' do
		lot[i] := 0

end;
procedure AddDigits (const s : string; var lot : TArr);

var
	i : Integer;

begin

	for i := 1 to Length(s) do
		Inc (lot[s[i]])

end;

procedure NextNum (var s : string);

var
	i : Integer;

begin

	i := Length(s);

	while i > 1 do begin
		if s[i] = '9' then
			s[i] := '0'
		else begin
			Inc (s[i]);
			Exit
		end;

		Dec (i)
	end;

	if s[1] = '9' then  begin
                s[1] := '0';
		s := '1' + s
    end
    else
		Inc (s[1])
        

end;

var
	k1, k2 : Integer;
	s1, s2 : string;
	lot : TArr;
	i : Char;

begin

	ReadLn (k1, k2);

	Str (k1, s1);
	Str (k2, s2);
	
	InitArr (lot);
	
	while s1 <> s2 do begin
		AddDigits (s1, lot);
		NextNum (s1)
	end;
	
	AddDigits (s1, lot);
	
	for i := '0' to '9' do
		WriteLn (i + ' : ', lot[i])
	
end.

Правда это паскаль..

[Serge_Bliznykov]

Вижу простое решение "в лоб":
Собрать строку вида k1k(1+1)k(1+2)..k(2)
Потом перебрать посимвольно через цикл, сохраняя каждую цифру, как ключ массива и увеличивая значение на единицу. Потом выводим ключи массива со значениями и количеством цифр в склеенной строке.

ну, можно и так. вполне себе нормальное решение.
только собираться всю строчку вида k1...k2 смысла нет.
берём очередное число i (цикл от k1 до k2) - разбираем его на цифры (хоть через перевод числа в строку, хоть через mod 10/div 10), заполняем массив Cnt : array[0..9] of integer;
(или массив Cnt : array['0'..'9'] of integer; )