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

0 bình luận về “Giúp e vs ạ Chỉ có 45p thôi ạ Sử dụng câu lệnh for…to để tính giá trị 3mủ10”

1. 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.

   Bình luận

2. 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.

   

   Bình luận