Последняя цифра - Pascal

Дано натуральное число. Выведите его последнюю цифру. Пример Ввод Вывод 179 9

Листинг программы

var a:integer; i:integer;
 
begin
write('Введите число: ');
readln(a);
i := (a mod 10);
Write('Последние число = ',i);
end.

Объяснение кода листинга программы

Объявлены две переменные: a типа integer и i типа integer.
Выводится сообщение Введите число: и происходит чтение числа из стандартного ввода в переменную a.
Переменная i инициализируется остатком от деления числа, введенного пользователем, на 10.
Выводится сообщение Последние число = и в цикле выводятся значения переменной i до тех пор, пока она не станет равной 0.
Цикл завершается и программа заканчивается.

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы