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 Tin_hoc;

   uses crt;

   var i,N,tong:integer;

   begin

   clrscr;

   write(‘N=’);readln(N);

   tong:=0;

   for i:= 1 to N do tong:=tong+i;

   writeln(‘Tong cua ‘,N,’ so tu nhien la: ‘,tong);

   readln;

   end.

   CHO MIK CÂU TLHN NHA

   Bình luận

2. Program BTH;
   uses crt;
   var n,s,i:longint;
   Begin
   clrscr;
   Write(‘Nhap n: ‘);readln(n);
   for i:=1 to n do
   s:=s+i;
   Write(‘Tong day so tren la: ‘,s);
   readln;
   end.

   Xin hay nhất !

   Bình luận