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.

Объяснение: