Предпоследняя цифра Дано натуральное число. Найдите число десятков в его десятичной записи (то есть предпоследнюю цифру его десятичной записи Если заданное число является однозначным, то необходимо вывести 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.