K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

20 tháng 3 2020

Program hotrotinhoc;

var a: byte;

i,n,p: longint;

t: int64;

begin

readln(a,n,p);

t:=1;

for i:=1 to n do

t:=t*a;

write(t mod 100);

readln

end.

21 tháng 3 2020

uses crt;
var a,n,p,t,kq:int64;
i:longint;
begin
clrscr;
write('a='); readln(a);
write('n='); readln(n);
write('p='); readln(p);
t:=1;
for i:=1 to n do
t:=t*a;
kq:=t mod p;
writeln('KQ=',kq);
readln;
end.

20 tháng 3 2017

Đáp án đúng : A

26 tháng 4 2019

Đáp án đúng : D

17 tháng 6 2017

Đáp án đúng : B

25 tháng 6 2019

Đáp án đúng : A

17 tháng 2 2017

Đáp án đúng : B

1 tháng 7 2018

Đáp án đúng : D

23 tháng 11 2018

Đáp án đúng : A