Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

определить последнюю цифру заданного целого числа в pascal

юлек ЗФ Ученик (111), на голосовании 9 лет назад
Голосование за лучший ответ
Андрей Винк Искусственный Интеллект (151520) 9 лет назад
Остаток от деления числа на 10.
А поможет в этом оператор mod

answer := Num mod 10;
Переменной answer будет присвоено значение, равное остатку от деления Num на 10 - то есть, искомая его последняя цифра.
...Гений (84891) 9 лет назад
Чуть подправлю.

answer:=abs(Num) mod 10;

Попробуйте WriteLn(-102 mod 10);
Андрей Винк Искусственный Интеллект (151520) Согласен, недоглядел про отрицательные числа. А все от того, что по дурной привычке привычке "целое == целое положительное"...
Ахметшин Марат Мыслитель (6024) 9 лет назад
var N:integer;begin N:=12345; Write(N mod 10);end.
Похожие вопросы