разбор числа в Delphi

[Яська]

Условие:
Дано натуральное число. Сколько раз последняя цифра встречается в данном числе.

вот мои наброски)программа не хотит работать(

procedure TForm1.Button1Click(Sender: TObject);
var k,m, n:integer;

y:integer;


begin

Label4.Visible:=true;


m:=y mod 10;// делю исходное число на 10 и остатку присваиваю m
k:=0;// счётчик цикла
While y div 10>0 do

begin

y:=y div 10;
n:=y mod 10;
if n= m then k:=k+1;
end;
Label4.Caption:=floattostr(k);


end;

[Stilet]

Задание позволяет превращать число в строку?
если да то:
1) Преврати в строку
2) В цикле с конца до начала пройди по элементам строки и узнай сколько раз последний элемент появляется в строке

[Яська]

а зачем превращать число в строку?

[Stilet]

А потому что так удобнее )
Число превращается в массив символов, по которому просто проходить

[Яська]

жаль,что я не умею работать с такими массивами(даже не сталкивалась

[Roof]

2 Яська
Предполагаю, что пользователь вводит число в Edit.
Кидаешь на форму Edit и Button. Создаешь событие OnClick для Button.

procedure TForm1.Button1Click(Sender: TObject);
var
  k, i: integer; //счетчики
  ch: char;  // для нашего символа - последняя цифра в числе
  str: string; //сюда будем считывать строку
begin
  str := Edit1.Text;
  ch := str[length(str)]; //считываем последний символ в строке
  k := 0;
  for i := 1 to length(str) do
    if str[i] = ch then // тут устраиваем проверку на совпадение
      Inc(k);

  ShowMessage('Цифра ' + ch + ' Встречается ' + IntToStr(k) + ' раз(а)');
end;

[Stilet]

Да. А если всетки позарез нужно превратить переменную числовую то используют функции FloatToStr и intToStr

[Grag]

Яська, направление верное, но есть ошибка.
Вот мой вариант:

count:=0;
k:=Num mod 10; //последняя цифра числа
Num:=Num div 10;
while Num>0 do
  begin
    if Num mod 10 = k then Inc(count);
    Num:=Num div 10
  end;
//count содержит количество повторений последней цифры числа

[Яська]

спасибо всем огромное)всё получилось)