Question

Задача на Delphi
Дано натуральное число. Определить: его вторую цифру

Answer 1

{$APPTYPE CONSOLE}
Var A:integer;
begin
Write('Введите целое число: ');ReadLn(A);
Write('Вторая цифра этого числа: ',(Abs(A) div 10) mod 10);
ReadLn
end.