viết chương trình tính tổng của sô tự nhiên đầu tiên

0 bình luận về “viết chương trình tính tổng của sô tự nhiên đầu tiên”

1. program ct;

   uses crt;

   var n,i:integer;

         S:longint;

   begin clrscr;

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

        S:=0;

      for i:=1 to n do

        S:=S+i;

      writeln(‘Tong la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận

2. program oken;
   uses crt;
   var n,i,sum:longint;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           sum:=0;
           for i:=1 to n do
                   sum:=sum+i;
           writeln(‘Tong=’,sum);
           readln;
   end.

   Bình luận