viết chương trình pascal tính tổng n số tự nhiên đầu tiên

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

1. *Tính tổng:

   program tinhtongnso;

   uses crt;

   var s,i,n:integer;

   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.

   Xin ctlhn ạ!

   Bình luận

2. uses crt;
   var s,i,n:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do s:=s+i;
      writeln(s);
   readln
   end.

   Bình luận