viết chương trình pascal tính tổng các số nguyên dương lớn hơn một số N nhập từ bàn phím

0 bình luận về “viết chương trình pascal tính tổng các số nguyên dương lớn hơn một số N nhập từ bàn phím”

1. 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.

   Bình luận

2. *Chỉ có bé hơn n, bé hơn hoặc bằng n thôi nhé bạn, chứ lớn hơn n thì tổng = $\infty$

   $—————-$

   *Bé hơn n:

   uses crt;
   var n,i,s:longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); read(n);
      for i:=1 to n-1 do inc(s,i);
      writeln(‘Tong: ‘,s);
      readln
   end.

   *Bé hơn hoặc bằng n:

   uses crt;
   var n,i,s:longint;
   begin
      clrscr;
      write(‘Nhap n: ‘); read(n);
      for i:=1 to n do inc(s,i);
      writeln(‘Tong: ‘,s);
      readln
   end.

   *Khác ở chỗ là bé hơn hoặc bằng n là đến n, còn bé hơn n là đến n-1

   Bình luận