Viết thuật toán tính tổng n số tự nhiên đầu tiên.

0 bình luận về “Viết thuật toán tính tổng n số tự nhiên đầu tiên.”

1. var
           n,i,kq: integer;
           begin
                   readln (n);
                   for i:= 1 to n do kq:= kq + i;
                   writeln (kq);
                   readln;
           end.

   Bình luận

2. uses crt;
   var i,s,n: integer; 
   begin 
   clrscr; 
   write(‘Nhap vao so n = ‘);readln(n); 
   i:=1; 
   s:=0; 
   while i<=n do 
   begin 
   s:=s+i; 
   inc(i); 
   end; 
   writeln(‘Tong cua ‘,n,’ so tu nhien dau tien la ‘,S); 

   readln; 
   end.

   Chúc bạn học tốt!

   Bình luận