Nhập n Tính S S=1+2+3+...+n Nhanh ạ gấp huhu xin
2 câu trả lời
Code:
program tinh;
var n,i:integer;
s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
writeln('tong:',s);
readln;
end.
uses crt;
var n: longint;
begin
clrscr;
readln(n);
writeln(n * (n + 1) div 2);
readln;
end.
Câu hỏi trong lớp
Xem thêm