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

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

1. program ct;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

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

   s:=0;

   for i:=1 to n do s:=s+i;

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận

2. uses crt;

   var i,n,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