Tin học Lặp với số lần chưa biết trước

[Anh trai mưa và em gái mưa]

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

Dùng câu lệnh While để tính tổng:
S = 1^2 + 2^2 + ... + n^2

 

[Lục Vân Tiên]

Program tinh;
Uses crt;
Var S,n,i,a: longint;
Begin
Write('Nhap so n= '); readln(n);
While i=n do
Begin
a:=i*i;
i:=i+1;
S:= S+a;
End;
Write('Ket qua la ',S);
Readln;
End.

Mk làm trên đt nên chưa kiểm tra, sai bn báo lại cho mk nhé, mk sửa lại, còn đúng thì thôi

 

[tiểu tuyết]

nó chạy dưới dạng nào thế a

Program tinh;
Uses crt;
Var S,n,i,a: longint;
Begin
Write('Nhap so n= '); readln(n);
While i=n do
Begin
a:=i*i;
i:=i+1;
S:= S+a;
End;
Write('Ket qua la ',S);
Readln;
End.

Mk làm trên đt nên chưa kiểm tra, sai bn báo lại cho mk nhé, mk sửa lại, còn đúng thì thôi

 

[Lục Vân Tiên]

nó chạy dưới dạng nào thế a

FPC và TPC