На Pascale

Дано натуральное число n (n10).

Var

n:integer;

c:string;

begin

write ('Введите число от 10 до 9999 - >') ;

readln (n) ;

Str (n, c) ;

writeln ('Предпоследняя цифра в числе равна ', c[length (c) - 1])

end.

Пример работы программы:

Введите число от 10 до 9999 - >1523

Предпоследняя цифра в числе равна 2