Em cần gấp mn giúp em với ạ Vote 5 sao và ctlhn Thay hàm lại thành cách viết bình thường không sử dụng hàm viết theo pascal t:=exp(n*ln(10))
2 câu trả lời
uses crt;
var n,i:longint; t:qword;
begin
clrscr;
write('Nhap n: ');readln(n);
t:=1;
for i:=1 to n do t:=t*10;
writeln('t=',t);
readln
end.
t:=exp(n*ln(10))
⇒`10^n`
begin
readln(n);
for i:=1 to n do
s:=s*10;
writeln(s);
readln
end.
