S=1+2+…+n Tính tồng bằng câu lệnh lặp Pascal nhé

0 bình luận về “S=1+2+…+n Tính tồng bằng câu lệnh lặp Pascal nhé”

1. program tinhtong;

   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 cac so tu 1 –> ‘,n,’ la: ‘,t);

      readln

     end.

   Bình luận

2. uses crt;

   var s,n,i: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   làm theo kiểu ma tốc độ @_@

   chúc bn học tốt!!!

   đúng 1000000% luôn đó nghe :))

   Bình luận