Viết chương trình tính tổng dãy sốđược cho như sau: S=1+2+3+4+5+6+…+n, với n là sốtựnhiên được nhập từbàn phím(n<10). ai giúp em vs ạ

0 bình luận về “Viết chương trình tính tổng dãy sốđược cho như sau: S=1+2+3+4+5+6+…+n, với n là sốtựnhiên được nhập từbàn phím(n<10). ai giúp em vs ạ”

1. program oken;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

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

   s:=0;

   for i:= 1 to n do

      s:=s+i;

   writeln(‘S=’,s);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var n,s,i:byte;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           s:=0;
           For i:=1 to n do s:=s+i;
           writeln(‘Tong la: ‘,s);
           readln
   end.

   Bình luận