tính tổng các số nguyên từ 1 đến n. với n được nhập từ bàn phím
2 câu trả lời
Uses crt;
Var i,n:integer;t:longint;
BEGIN
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do t:=t+i;
Writeln('Tong cac so tu 1 den ',n,' la: ',t);
Readln
End.
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do inc(s,i);
writeln('Tong cac so tu 1 den ',n,': ',s);
readln;
end.
