Viết chương trình tính tổng từ 1 ..n . Với n là số nguyên (n>1) được nhập từ bàn phím.

Viết chương trình tính tổng từ 1 ..n . Với n là số nguyên (n>1) được nhập từ bàn phím.

0 bình luận về “Viết chương trình tính tổng từ 1 ..n . Với n là số nguyên (n>1) được nhập từ bàn phím.”

  1. *Chương trình 

    Program Hotboy ;

    Uses crt;

    i,n,S: word;

    Begin

    Clrscr;

    S:=0;

    Write(‘nhap n tu ban phim’);

    Readln(n);

    For i:=1 to n do

    S:=S+i;

    Write(‘tong can tim la’,S);

    Readln

    End.

    Bình luận
  2. Program BTH;
    uses crt;
    var n,s,i:longint;
    Begin
            clrscr;
            write(‘Nhap n: ‘);readln(n);
            For i:=1 to n do s:=s+i;
            writeln(‘Tong day so tren la: ‘,s);
            readln;
    end.

    Bình luận

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