a = input()
print(a[-1:] if int(a) % 2 == 0 else a[-2:-1])
Объяснение:
1) Введем число как строку.
2) Конструкция "действие1 if условие1 else действие2" (она еще называется тернарным оператором) выполняет действие1, если условие1 возвращает True, иначе выполняется действие2. Это уменьшает количество строк кода с четырех до одной.
3) Выражение s[a:b] вернет все символы в строке s в диапазоне [a; b). Выражение s[a:] вернет все символы в строке s от a до конца строки. Если a или b отрицательные, то отсчет будет вестись с конца строки. Выражение s[-1:] вернет все символы в строке, начиная с последнего (т.е., последний символ). Ну а s[-2:-1] вернет все символы с предпоследнего до последнего, исключая последний (т.е., предпоследний символ).
var
A : array [1..999, 1..999] of Integer;
p, s, i, j, m, n: Integer;
begin
// Инициализация переменных для суммы и произведения
s:= 0;
p:= 1;
Write('Введите количество строк - ');
ReadLn(m);
Write('Введите количество столбцов - ');
ReadLn(n);
// Заполнение
for i:=1 to m do
for j:=1 to n do
A[i,j]:=Random(6)+5;
// Вывод массива
for i:=1 to m do
begin
for j:=1 to n do
Write(A[i,j]:3);
WriteLn();
end;
// Подсчёт произведения и суммы
for i:= 1 to m do
begin
j:= i;
s+= A[m-i+1,j];
p*= A[i,j];
end;
WriteLn('Произведение = ', p);
WriteLn('Сумма = ', s);
end.
