Question

Помогите срочно!!! Составьте алгоритм позволяющий вывести на экран среднюю цифру некоторого числа введенного с клавиатуры. Алгоритм должен работать для чисел с нечетным кол-вом цифр.

Answer 1

var a:integer;
begin
   writeln('введите трехзначное число: ');
   readln(a);
      a:=a mod 100 div 10;
      writeln('средняя цифра: ',a);
end.