Question

Дано натуральное число (цифры нумеруются справа налево, например, в числе 2346 – первая цифра 6, вторая цифра – 4, и т.д.).Определить, является последняя цифра четной или нечетной. Через цикл repeat. ПАСКАЛЬ!!! ​

Answer 1

Ответ:

• var n: integer; b: boolean;
• begin
• read(n);
• repeat
• n := n div 10;
• b := n mod 2 = 0;
• until n<10 ;
• if b then write('четная')
• else write('нечетная');
• end.

PascalABC.NET:

• begin
• ReadInteger.ToString[1].ToDigit.IsEven.Print
• end.

Объяснение:

Answer 2

Конечно, вот пример кода на языке Pascal, который определяет, является ли последняя цифра заданного натурального числа четной или нечетной с использованием цикла `repeat`:

program LastDigitCheck;

var
  num, lastDigit: Integer;

begin
  Write('Введите натуральное число: ');
  Readln(num);

lastDigit := num mod 10; // Получаем последнюю цифру числа

if lastDigit mod 2 = 0 then
    writeln('Последняя цифра четная')
  else
    writeln('Последняя цифра нечетная');
end.

В этом коде мы сначала считываем натуральное число `num` с помощью `Readln`. Затем мы используем операцию деления по модулю (`mod 10`), чтобы получить последнюю цифру числа и сохранить её в переменной `lastDigit`. Затем мы проверяем, является ли `lastDigit` четным или нечетным с помощью операции деления по модулю на 2 (`lastDigit mod 2`). Если результат равен 0, то последняя цифра четная, иначе она нечетная, и мы выводим соответствующее сообщение.