Определите последнюю цифру степени 7n, для (n<100).

Question

Определите последнюю цифру степени 7n, для (n<100).

Comments

Хотя нет, можно и без длинной - в принципе ничего сложного.

---

Тогда k=n mod 4, и для k={0,1,2,3} имеем искомую цифру {1,7,9,3}

---

Собственно, это и все

---

да, так и есть

---

Var n,k,i : Byte;Begin k:=1; For n:=80 to 99 do Begin For i:=1 to n do k:=k*7 mod 10; Writeln(k); end;end.

---

после Writeln забыл k:=1;

---

Вообше-то я понял условие так, что n<100, а найти надо последнюю цифру в выражении 7^n

---

да, и я так понял, просто сделал табличку степеней от 80 до 99

---

достаточно держать только последнюю цифру

---

спасибо:)

Answer 1

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
const
  r:array[0..3] of integer=(1,7,9,3);
begin
  Writeln('Последняя цифра ',r[ReadInteger('n=') mod 4])
end.

Тестовое решение:
n= 7
Последняя цифра 3