Второй символ цифры в поле Edit

[Jeraldino74]

Подскажите пожалуйста. Как осуществляется вот такая задача:
Ввожу число в Edit от 0 до 99, после нажатия кнопки в мемо выводится сообщение "Я прочитал n книг". Как сделать, чтобы менялось окончание у слова "книг(у;и)".

case a of 
1..99: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книг';

То есть как мне определять, что в числе последняя цифра 1-книгу; 2,3,4-книги; 5,6,7,8,9,0-книг.

Заранее благодарен.

Так, какое-то просветление, но не получается.

a:=StrToInt(Edit1.Text);
n:=a div 10;
case n of 
1: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книгу';
2..4: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книги';
5..9,0: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книг';

Что не правильно?

[Luuzuk]

n:=a div 10;

Может все-таки mod вместо div?

[Jeraldino74]

Ну я всё) Стоило только прочитать про mod.

a:=StrToInt(Edit1.Text);
n:=a mod 10;
case n of 
1: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книгу';
2..4: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книги';
5..9,0: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книг';

Так всё работает.

[Jeraldino74]

Вместе написали сообщение. Допёрло до меня. Тебе спасибо, что отреагировал. А мне спасибо, что сам разобрался )))

[Sciv]

Интересно, что вы будете делать с числами второго десятка?

[Serge_Bliznykov]

рискну предложить и свой вариант, лишённый ограничений, на которые Вам намекают форумчане...

  a:=StrToInt(Edit1.Text);
  if a <= 0 then Memo1.Text:='Я прочитал 0 книг'
  else begin
    n := a mod 100;
    if (n >= 10) and (n <= 20) then Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книг';
    else
      case (a mod 10) of
        1: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книгу';
        2..4: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книги';
        5..9, 0: Memo1.Text:='Я прочитал ' + IntToStr(a)+ ' книг';
      end;
  end;

[Sciv]

Сергей, можно было n задать от 11 до 19 - 10 и 20 попадают под другое условие. Но это не суть важно.

Кстати, совсем недавно (на той неделе) подобная задача была, только там вместо книг грибы считали... до чего ж ленивые студенты пошли...

[Serge_Bliznykov]

Sciv, а вы думаете, я свой код писал? я же страшно ленивый! я взял старый пример с форума, чуток переделал (вместо WriteLn - Memo1.Text, вместо лет/год/года поставил "книг/книги/книгу" и вуаля, программа написана!