tính và đưa ra màn hình kết quả của tổng sau: T= 1+2+3+4+5+...+N
2 câu trả lời
Uses crt;
Var N,i,S:integer;
Begin
Clrscr;
Write('Nhap vao gia tri cua N :'); Readln(N);
S:=0;
For i:=1 to N do S:=S+i;
Writeln('Ket qua la :',S);
Readln
End.
program hocbai;
uses crt;
var n: integer; T: longint;
begin clrscr;
writeln('Nhap n'); readln(n);
until n>=0;
s:=0;
for i:=1 to n do T:=T+i;
writeln('tong la', T);
readln;
end.
