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