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.