Tin học Viết chương trình Pascal

[phanthanh910]

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

Viết chương trình sử dụng lệnh while do để tính:
S=1+1/2^3+...+1/n^3
Sáng mai mình phải nộp nên cần gấp lắm. Cảm ơn các bạn nha

 

[khai221050]

user crt;
var
begin
clrscr
writeln(' Nhap n'); readln(n);
while (i<=n) do
begin
S:=S+1/n*n*n;
i:=i+1;
end;
witeln('Hien kq...');
readln
end.

 

[truongtuan2001]

user crt;
var
begin
clrscr
writeln(' Nhap n'); readln(n);
while (i<=n) do
begin
S:=S+1/n*n*n;
i:=i+1;
end;
witeln('Hien kq...');
readln
end.

clrscr và readln phải có; chứ
Cho mình cái "thânks" nha