pascal, cấu trúc lặp: Tính và đuưa ra tổng S=1+2+3+..........+n (n là số nguyên duơng nhập vào từ bàn phím
2 câu trả lời
uses crt;
var i, n, S : integer;
begin
clrscr;
write('Nhap so n : '); readln(n);
S := 0; for i := 1 to n do S := S + i;
write('S = ', S);
readln
end.
uses crt;
var n:longint;
begin
clrscr;
write('N = ');readln(n);
writeln('1+2+3...+n = ',(n*(n+1)) div 2);
readln;
end.
