Помогите пожалуйста составить программу. Дано целое положительное число n. Составить...

Question

Помогите пожалуйста составить программу.
Дано целое положительное число n.
Составить программу, которая, если число четное, выведет последнюю цифру этого числа.

Answer 1

uses crt;(если используешь абс паскаль) 
var n,b,k:integer;
begin
writeln ('n');
readln (n);
k:=n mod 2;
b:=n mod 10;
if k = 0 then writeln (b);
end.

Comments

да, использую паскаль, но что-то не так

---

на какойстоке он ругается

---

строке

---

можно еще 1 переменую завести k к примеру и присвоить ее к n div 10

---

в самом конце, если пишу число 16,18 не важно, оно же четное, и он его и выдает

---

может так?

---

всё равно, при вводе любого четного числа, оно и остается

---

если ввожу 96, в конце он должен выдать 6, а он выдает 96

---

все сам проверил

---

в 6 строке вот так только k:=n mod 2; и всё работает, спасибо огромное