viết chương trình tính tổng của các số nguyên từ 1 đến n với n là số nguyên được nhập từ bàn phím

0 bình luận về “viết chương trình tính tổng của các số nguyên từ 1 đến n với n là số nguyên được nhập từ bàn phím”

1. var i, n: word;

         s: longint;

   Begin

       Write(‘n = ‘); readln(n); s:=0;

       For i:=1 to n do s:=s+i;

       Write(‘tong: ‘, s);

       Readln

   End.

   Bình luận

2. @Meoss_

   * Viết chương trình như sau:

   Program Tinh_tong;

   Uses Crt;

   Var i,n,S:integer;

   Begin

     Clrscr;

     Writeln(‘Ban hay nhap n’); Readln (n);

    S:=0;

    For i:=1 to n do S:=S+1;

    Writeln(‘ Tong la ‘, S );

    Readln;

    End.

   Bình luận