Определить, равны ли первая и последняя цифры заданного с клавиатуры числа - Pascal ABC
Формулировка задачи:
Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.
Решение задачи: «Определить, равны ли первая и последняя цифры заданного с клавиатуры числа»
textual
Листинг программы
var n,p:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);
p:=n mod 10;
while n>10 do n:=n div 10;
if p=n then write('Первая и последняя цифры равны')
else write('Первая и последняя цифры не равны')
end.
Объяснение кода листинга программы
- Создаются две переменные: n и p типа Integer.
- Выводится сообщение 'Введите целое число n=', чтобы пользователь мог ввести значение для переменной n.
- С помощью функции readln(n) происходит чтение введенного пользователем значения и сохранение его в переменной n.
- Значение переменной n преобразуется в абсолютное значение с помощью функции abs(n).
- Вычисляется остаток от деления значения переменной n на 10 с помощью оператора mod и сохраняется в переменной p.
- Запускается цикл while, который выполняется до тех пор, пока значение переменной n больше 10.
- Внутри цикла значение переменной n делится на 10 с помощью оператора div и сохраняется в переменной n.
- Проверяется равенство значения переменной p и n. Если они равны, то выводится сообщение 'Первая и последняя цифры равны'.
- Если равенство не выполняется, то выводится сообщение 'Первая и последняя цифры не равны'.
- Программа завершается.