Giúp e vs ạ Chỉ có 45p thôi ạ Sử dụng câu lệnh for...to để tính giá trị 3mủ10

2 câu trả lời

Program BTH;
uses crt;
var i,s:longint;
Begin
        clrscr;
        s:=1;
        For i:=1 to 10 do s:=s*3;
        writeln('3^10 = ',s);
        readln;
end.

progeam oken;

uses crt;

var i,mu:longint;

begin

clrscr;

mu:=1;

for i=1 to 10 do

   mu:=mu*3;

writeln('3^10=',mu);

readln;

end.