Определите сумму первой и последней цифры числа - Pascal ABC
Формулировка задачи:
Задано натуральное многозначное число. Определите сумму его первой и последней цифры, первой и предпоследней цифры.
Решение задачи: «Определите сумму первой и последней цифры числа»
textual
Листинг программы
program pr;
var
a, b, n, c: longint;
begin
writeln('Введите число');
readln(n);
c := (n mod 100) div 10; // предпоследняя
a := n mod 10;
n := n div 10;
while n > 0 do
begin
b := n mod 10;
n := n div 10;
end;
writeln('Предпоследняя цифра: ', c);
writeln('Первая цифра: ', b);
writeln('Последняя цифра: ', a);
writeln('Сумма первой и последней цифры: ', b+a);
writeln('Сумма первой и предпоследней цифры: ', b + c);
end.
Объяснение кода листинга программы
- В программе объявлены три переменные: a, b и n типа longint.
- Пользователю предлагается ввести число. Это значение сохраняется в переменной n.
- Вычисляется предпоследняя цифра числа. Для этого число делится на 10, а результат заносится в переменную c.
- Вычисляется первая цифра числа. Для этого число делится на 10, а результат заносится в переменную a.
- Число делится на 10, чтобы убрать последнюю цифру. Результат этого деления сохраняется в переменной n.
- Пока значение n больше нуля, выполняется цикл.
- Внутри цикла вычисляется последняя цифра числа. Она сохраняется в переменной b.
- Число снова делится на 10, чтобы убрать последнюю цифру. Результат этого деления сохраняется в переменной n.
- Выводится информация о числе: предпоследняя цифра, первая цифра и последняя цифра.
- Выводится сумма первой и последней цифры.
- Выводится сумма первой и предпоследней цифры.