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

Примеры
Ввод 1
179
Вывод
7
Люди очень нужно или я на турнир не поеду по футболу

program z1;

var a:integer;

begin

read(a);

write(a mod 100 div 10)

end.

Объяснение:

Ввод числа

Вывод количества десятков

a mod 100 - находим 2 последние цифры числа (остаток от деления на 100)

(a mod 100) div 10 - находим первую цифру из 2 последних цифр числа (целочисленное деление на 10)

Если число меньше 10, то 0 выдаст автоматически, но можно и прописать отдельно через условие:

program z1;

var a:integer;

begin

read(a);

if a<10 then write(0)

else write(a mod 100 div 10)

end.

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.