Đăng nhập để hỏi chi tiết


Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var a,n,i,lt:longint;
begin
clrscr;
write('a=');readln(a);
write('n=');readln(n);
lt:=1;
for i:=1 to n Do lt:=lt*a;
writeln('Chu so cuoi cung cua a^n=',lt mod 10);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin