program Tinh_tong;
uses crt;
var i, n, s: integer;
begin
clrscr;
writeln(‘Chuong trinh tinh tong S = 1 + 2 + … + n’);
write(‘Nhap so n: ‘);read(n);
s:=0;
for i := 1 to n do s := s + i;
writeln(‘Tong cua ‘,n,’ so tu nhien dau tien s = ‘,s);
readln;
readln;
end.
Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin
clrscr;
writeln(‘Chuong trinh tinh tong S = 1 + 2 + … + n’);
write(‘Nhap so n: ‘); readln(n);
s:=0; i:=1;
while i<=n do
begin
s := s + i;
i:=i+1;
end;
writeln(‘Tong cua ‘,n,’ so tu nhien dau tien s = ‘,s);
readln;
readln;
end.
Program tinh_tong;
Uses crt;
Var i, n, s: integer;
Begin
Clrscr;
Writeln(‘Chuong trinh tinh tong S = 1 + 2 + … + n’);
Write(‘Nhap so n: ‘);Read(n);
S:=0;
While i<=n do
Begin
i:=i+1;
S:=S+i;
End;
Writeln(‘Tong cua ‘,n,’ so tu nhien dau tien la: S = ‘,s);
Readln;
End.
Code đây nha, chúc bạn học tốt ^w^