Tin học pascal lớp 8

[nguyễn lê phước thịnh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mình đang cần bài này gấp
viết chương trình con tính a^1+a^2+a^3+...a^n , với n, a là số tự nhiên nhập từ bàn phím

 

[chungocha2k2qd]

var i : integer;
S : integer;
S:=0;
For i:=1 to n do S:=a^i;

 

[Trâm Nguyễn Thị Ngọc]

var
i,n,a,t:integer;
begin
readln(a);readln(n);
t:=0;
for i:=1 to n do
begin
for j:=1 to i-1 do a:=a*a;
t:=t+a;
end;
write('tong la:',t);
readln
END.

 

[ĐứcNhật!]

var i : integer;
S : integer;
S:=0;
For i:=1 to n do S:=a^i;

Trong pascal không có kí hiệu mũ nhé bạn. Với lại bạn mới khai báo một i mà S ở đâu ra vậy

 

[Lê Nguyễn Nhựt Minh]

mình đang cần bài này gấp
viết chương trình con tính a^1+a^2+a^3+...a^n , với n, a là số tự nhiên nhập từ bàn phím

program bai1;
uses crt;
var a,n,: integer;
S: real;
begin
Write('Nhap he so n:'); readln(n);
S:=0;
For a:=1 to n do
begin
S:=S + a*a;
end;
Write('Ket qua la:',S:1:1);
readln
end.

 

[Hieupq03]

var i : integer;
S : integer;
S:=0;
For i:=1 to n do S:=a^i;

bạn khai S là integer có tràn dữ liệu ko

 

[chungocha2k2qd]

bạn khai S là integer có tràn dữ liệu ko

Mk cũng ko biết nữa

Trong pascal không có kí hiệu mũ nhé bạn. Với lại bạn mới khai báo một i mà S ở đâu ra vậy

sorry bạn nha, mk bị nhầm đọc ko kĩ phải là cộng vào mới đúng