Дано натуральное число N. Вывести его последнюю цифру. Программа на языке Паскаль. PascalABC.NET (3 способа)

 Задача. Дано натуральное число N. Вывести его последнюю цифру. 

Приведем 3 способа решения данной задачи:

• с использованием операции mod;
• с использованием строкового типа данных string;
• с использованием функции digits из модуля School.

Способ 1 (с использованием операции mod)

Последняя цифра натурального числа показывает количество единиц в числе. Вычислим эту цифру делением на 10. 

Воспользуемся операцией целочисленного деления mod.

Покажем деление нацело на схеме:

Если вычислить целый остаток от деления числа на 10 - это и будет последняя цифра числа.

Операция вычисления целого остатка от деления в языке Паскаль - это mod.

Запишем выражение для вычисления последней цифры натурального числа N:

d:=N mod 10;

Программа для решения задачи на языке Паскаль

var N,d:integer;

begin

  println('Введите натуральное число N');

  readln(N);

  d:=N mod 10; //целый остаток от деления числа N на 10

  println('Последняя цифра числа',d);

end.

Результат запуска программы

Дополнительно об операциях целочисленного деления div и mod (читать).

Способ 2 (с использованием строкового типа данных string)

var N,d:integer; str:string; c:char;

begin

  println('Введите натуральное число');

  readln(N);

  str:=N.ToString; //преобразовать число N  в строку str

  c:=str[str.length]; //последний символ строки str

  d:=c.ToDigit; //преобразовать символ в цифру

  println('Последняя цифра числа',d);

end.

Способ 3 (с использованием функции digits из модуля School)

uses school;

var N,d:integer;

    mas:array of integer;

begin

  println('Введите натуральное число');

  readln(N);

  mas:=digits(N).toArray;//получение списка цифр и преобразование списка в массив

  d:=mas[mas.Length-1];//последний элемент массива mas

  println('Последняя цифра числа',d);

end.

Каким способом следует воспользоваться для решения следующей задачи:

Дано натуральное число. Вычислить сумму его цифр.