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.

Answer 2

может так?

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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