Найти вторую цифру числа n. - Pascal
Формулировка задачи:
дано натуральное число n. Найти вторую цифру числа n.
Решение задачи: «Найти вторую цифру числа n.»
textual
Листинг программы
uses crt;
var n:longint;
k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<10 then
begin
write('В числе нет 2 цифр');
readln;
exit;
end;
while n>10 do
begin
k:=n mod 10;
n:=n div 10;
end;
write('Вторая цифра=',k);
readln
end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая предоставляет функции для работы с консолью.
- Переменная n типа longint предназначена для хранения числа, в котором нужно найти вторую цифру.
- Переменная k типа byte будет использоваться для хранения второй цифры числа n.
- Функция clrscr используется для очистки экрана перед вводом числа.
- Затем идет запрос на ввод числа n с помощью функции readln.
- С помощью оператора if проверяется, что число n меньше 10. Если это так, то выводится сообщение о том, что в числе нет двух цифр, и функция readln используется для выхода из программы.
- Если число n больше 10, то начинается цикл while, который будет выполняться до тех пор, пока n больше 10.
- Внутри цикла переменная n делится на 10 с помощью оператора mod, чтобы получить вторую цифру числа, а затем переменная n делится на 10 снова с помощью оператора div, чтобы получить первую цифру числа.
- После завершения цикла выводится сообщение о второй цифре числа n с помощью функции write.
- Вызывается функция readln, чтобы выйти из программы.