2
Объяснение:
n:=25;//н стал равен 25
A[1]:=2;//а1 стал равен двойке
for i:= 2 to n do begin//цикл начинаем с двойки и идём до н
A[i] := 2*A[i–1] mod 10;// в а[i] ставим
предыдущую а увеличиваем в двое и остаток от деления на десять
//т.е. последовательность такая:
//2;4;8;6;2;4;8;6
// Главное теперь найти 25ый член последовательности
//2 это 1ый, 5, 9,13,17,21,25
Т.е. 25ый член этой последовательности - 2
end;
