VIẾT CHƯƠNG TRÌNH: 1. Tính tổng một dãy các số tự nhiên. 2. Tính tích một dãy các số tự nhiên.

0 bình luận về “VIẾT CHƯƠNG TRÌNH: 1. Tính tổng một dãy các số tự nhiên. 2. Tính tích một dãy các số tự nhiên.”

1. 1. Tính tổng một dãy các số tự nhiên:

   program oken;
   uses crt;
   var n,i,s: longint;
   begin
       clrscr;
       write(‘Nhap 1 so tu nhien bat ky: ‘); readln(n);
       for i:=1 to n do
           s:=s+i;
       writeln(‘Tong ‘,n,’ so tu nhien dau tien: ‘,s);
       readln;
   end.

   2. Tính tích một dãy các số tự nhiên:

   program oken;
   uses crt;
   var n,i,s: longint;
   begin
       clrscr;
       write(‘Nhap 1 so tu nhien bat ky: ‘); readln(n);
       s:=1;
       for i:=1 to n do
           s:=s*i;
       writeln(‘Tich ‘,n,’ so tu nhien dau tien: ‘,s);
       readln;
   end.

   Bình luận

2. 1

   For i:=1 to n do s:=s+i

   Writeln ( ”Tổng là”,s)

   2 For i:=1 to n do s:=s+i

   Writeln (”Tích là” ,s)

   Bình luận