Question

Дано натуральное число n<100.найти последнюю цифру числа n...на языке Па

Answer 1

program c1;
var n:integer;
begin
readln(n);
n:=n mod 10;
writeln(n);
end.

Answer 2

На языке Паскаль (Pascal) можно найти последнюю цифру натурального числа n с помощью операции деления на 10 и получения остатка. Вот пример программы:

pascalCopy code
program LastDigit;
var
  n, lastDigit: integer;
begin
  write('Введите натуральное число n (<100): ');
  readln(n);
  
  // Проверка, что число n соответствует условиям
  if (n < 1) or (n >= 100) then
  begin
    writeln('Число n не удовлетворяет условиям.');
    exit;
  end;
  
  // Находим последнюю цифру числа n
  lastDigit := n mod 10;
  
  writeln('Последняя цифра числа ', n, ' равна ', lastDigit);
end.

Эта программа сначала запрашивает у пользователя натуральное число n, затем проверяет, что оно удовлетворяет условиям (n < 100 и n > 0). Если число удовлетворяет условиям, программа находит последнюю цифру числа n с помощью операции деления на 10 и получения остатка от деления (n mod 10) и выводит результат на экран.