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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
NT
2
11 tháng 5 2017
Program luy_thua;
Uses crt;
Var a, i, n: integer;
Begin
Write('Nhap co so a: '); readln(a);
Write('Nhap so mu n: '); readln(n);
For i:=1 to n do a:=a*a;
Writeln('Gia tri a luy thua n la: ', a);
Readln;
End.
8 tháng 5 2017
thiếu hai dấu chấm phẩy ";" ở:
sửa thành:
TB: real;
A: array [1..100] of real;
lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:
và và
Sửa lại thành:
readln (a[i]);
TB:=0;
TB:=TB/n;
Cần có thêm readln trên end. để dừng chương trình lại để xem.
NM
1
ND
0
ND
3
Kết quả sai do em khai báo biến T là integer
Giá trị tối đa T có thể chứa là 32767 nên không thể chứa được kết quả như em mong muốn
Em sửa lại khai báo T là longint là được
i*t là sai rồi bạn
đúng ra phải là t*i nha