viết chương trình tính tổng n số nguyên đầu tiên bằng lệnh lặp for…do trong pascal

0 bình luận về “viết chương trình tính tổng n số nguyên đầu tiên bằng lệnh lặp for…do trong pascal”

1. program ct;

   uses crt;

   var n,i:integer;

        s:longint;

   Begin

   clrscr;

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

   s:=0;

       for i:=1 to n do

   s:=s+i;

   writeln(‘tong cua n so tu nhien dau tien la:’,s);

   readln

   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

         S:longint;

   begin clrscr;

      write(‘Nhap so n: ); readln(n)

        S:=0;

      for i:=1 to n do

        S:=S+i;

      writeln(‘Tong cua ‘,n,’ so tu nhien dau tien la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận