Quảng cáo
2 câu trả lời 480
Program TINH_X_LUY_THUA_N;
Uses crt;
Var i,n,x:integer;
lt:real;
Begin
Writeln(' TINH X LUY THUA Y:');
Writeln('----------------------------------');
Write('Nhap x ='); readln(x);
Write('Nhap n ='); readln(n);
lt:=1;
For i:=1 to n do
lt:=lt*x;
Writeln(x, '^',n,' = ',lt:4:2);
Readln;
End.
Program TINH_X_LUY_THUA_N;
Uses crt;
Var i,n,x:integer;
lt:real;
Begin
Writeln(' TINH X LUY THUA Y:');
Writeln('----------------------------------');
Write('Nhap x ='); readln(x);
Write('Nhap n ='); readln(n);
lt:=1;
For i:=1 to n do
lt:=lt*x;
Writeln(x, '^',n,' = ',lt:4:2);
Readln;
End
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45592
-
Đã trả lời bởi chuyên gia
29052 -
Hỏi từ APP VIETJACK28534
