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