viết chương trình tính: S=1+2+3+…n

Bởi

viết chương trình tính: S=1+2+3+…n

0 bình luận về “viết chương trình tính: S=1+2+3+…n”

  2. program oken;
    uses crt;
    var s,i,n: longint;
    begin
        clrscr;
        write(‘Nhap n: ‘); readln(n);
        s:=0;
        for i:=1 to n do
            s:=s+i;
        writeln(‘Tong cac so tu 1->’,n,’: ‘,s);
        readln;
    end.

    Bình luận

Viết một bình luận