chươn trình tính tổng N số tự nhiên đàu tiên với N nhập từ bàn phím

0 bình luận về “chươn trình tính tổng N số tự nhiên đàu tiên với N nhập từ bàn phím”

1. program tong_dau_tien;

   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. #$hunghunghung$

   var i,n: integer;

   s:longint;

   begin

   write(‘nhap so n=’);readln(n);

   s:=0;

   i:=1;

   while i<=n do

   begin

   Bình luận