viết chương trình tính tổng 1+2+3+…+n

0 bình luận về “viết chương trình tính tổng 1+2+3+…+n”

1. uses crt;
   var n,i,s: integer;
   begin
   clrscr;
   write (‘nhap n: ‘);  readln (n);
   for i:=1 to n do
   s:=s+i;
   writeln (‘tong la: ‘,s);
   readln;
   end.

   Bình luận

2. uses crt;

   var n,i,s: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận