iết chương trình tính tổng từ 1 ..n . Với n là số nguyên (n>1) được nhập từ bàn phím.

2 câu trả lời

Program Hotboy;

Uses crt; 

Var s:real;

I,n:integer;

Begin

Clrscr;

Write('nhao so n'); readln(n) ;

For i:=1 to n do 

S:=S+i ; i:=i+1;

Writeln('tong tu 1 den ',n,' la',S);

Readln

End.

Vote mình nha :3

program bt;
uses crt;
var s,i,n:integer;
begin
 clrscr;
 write('Nhap n: '); readln(n);
 for i:=1 to n do s:=s+i;
 writeln('Tong: ',s);
 readln;
end.