viết chương trình tính tổng của 1 dãy gồm n số nguyên được nhập từ bàn phím bằng cách dùng với lệnh lắp while-do

0 bình luận về “viết chương trình tính tổng của 1 dãy gồm n số nguyên được nhập từ bàn phím bằng cách dùng với lệnh lắp while-do”

1. uses crt;

   Var i, n: integer;

         S: longint;

   begin

    clrscr;

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

    S:=0;

    i:=0;

   While i<=n do begin S:=S+i;

                                      i:=i+1 end;

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

   Readln

   End.

   Bình luận