Дана последовательность чисел А длины N. Требуется вывести в обратном порядке. Формат входных данных
Первая строка входного файла содержит целое число N (1 ≤ N ≤ 106) - длину
последовательности. Вторая строка входного файла содержит N целых чисел - элементы
последовательности A. Все элементы последовательности не превосходят 100000 по
абсолютному значению.
Формат выходных данных
В единственной строке выходного файла выведите элементы последовательности A в
обратном порядке. Для наглядности обратите внимание на примеры.
вход
3
1 2 3
ответ
3 2 1
1. Переводим число в строку и выделяем две подстроки символ длиной в 1 с начала строки, которые переводим обратно в целое.
2. А дальше стандартно с целочисленного деления выясняем четность первой цифры числа.
var a,a1,a2:integer;
s:string
begin
readln(a);
//преобразуем число в строку и найдем первые 2 цифры
str(a,s);
a1:=strtoint(copy(s,1,1));
a2:=strtoint(copy(s,2,1));
writeln('Первая цифра числа: ',a1);
writeln('Вторая цифра числа: ',a2);
//Проверим первую цифру на четность
if a1 mod 2 =0 then writeln(a1,' - четная')
else writeln(a1,' - нечетная')
end.