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
Loga
Sinh Học lớp 12
