Question

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

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

Answer 1

Ответ:

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.