viết chương trình tính tổng S=1+2+3+....+n (n<=1000) mn giúp mình với ạ
2 câu trả lời
uses crt;
var i,n: integer;
s: longint;
begin
clrscr;
write ('nhap n: '); readln (N);
for i:=1 to n do s:=s+i;
writeln ('tong la: ',s);
readln;
end.
uses crt;
var i, n, S : integer;
begin
clrscr;
write('Nhap so n : '); readln(n);
if n <= 1000 then begin
S := 0; for i := 1 to n do
S := S + i;
write('S = ', S); end;
readln
end.
Câu hỏi trong lớp
Xem thêm
