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

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