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

0 bình luận về “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”

1. 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.

   Bình luận