Viết trương trình tính tổng của N số tự nhiên đầu là số tự nhiên được nhập vào bàn phím

0 bình luận về “Viết trương trình tính tổng của N số tự nhiên đầu là số tự nhiên được nhập vào bàn phím”

1. Var i,n,S:integer;

   Begin

     Clrscr;

       Write(‘Nhap do dai n vao: ‘); Readln(n);
   S:=0;

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

         Writeln(‘Tong cac stn tu 1 -> ‘,n,’ la: ‘,S);
    Readln

   End.

   Bình luận

2. program tinhtongnso N;

   uses crt;

   var s,i,n:integer;

   begin

        program tinhtongnso;

        uses crt;

        var s,i,

        program tinhtongnso;

      uses crt;

     var s,i,n:integer;

   begin

   clrscr;

          writeln(‘Nhap so n’);readln(n);

         s:=0;

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

       writeln(‘Tong la:’,s);

      readln

     end.

   Xin hay nhất

   Bình luận