viết chương trình tính tổng N số tự nhiên

0 bình luận về “viết chương trình tính tổng N số tự nhiên”

1. program tinh_tong;

   uses crt;

   var n,i,t:integer;

   begin

        clrscr;

        write(‘Nhap N: ‘);  readln(n);

        t:=0;

        for i:=1 to n do

             t:=t+i;

        write(‘Tong N so tu nhien dau tien la: ‘,t);

        readln;

   end.

   Bình luận

2. uses crt;

   var a: array[1..100] of integer;

   i,n: integer;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n); 

   for i:=1 to n do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

   s:=s+a[i];

   end;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận