Как убрать цифру в pascal?

Question

[silin_n]

Дано пятизначное число. Каким число получится, если убрать предпоследнюю цифру?
Например 15978 -> 1598.
Заранее большое спасибо!

Answer 1

[Дмитрий Беляев]

r := (n div 100) * 10 + (n mod 10)

Answer 2

[Владимир Мартьянов]

Переводите число в строку, собираете новую строку из элементов старой. Переводите строку обратно в число. Например можно так. Или находите первые три цифры (через деление) и последнюю (через остаток от деления). Потом через сложение и умножение получаете результат.