Dựa vào bài bài 10 - Cấu Trúc Lặp *) Bài toán : Lập trình tính S=1+2+3+...+N ( với N € Z, nhập từ bàn phím ) #giúp mình với,mình đang cần gấp, vote 5 sao nha mn
2 câu trả lời
uses crt;
var a, N, S : integer;
begin
clrscr;
S := 0; a := 1;
write('Nhap so N = '); readln(N);
while a <= N do
begin S := S + a;
a := a + 1; end;
write('1 + 2 + ... + N = ', S);
readln
end.
Program NN;
Uses crt;
Var n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do s:=s+i;
Write('S = ',s);
Readln
End.
