dùng lệnh for…do VCT tính tổng và tích của n số nguyên dương đầu tiên giúp mình với plss mai mình thi rồi mng ơi

0 bình luận về “dùng lệnh for…do VCT tính tổng và tích của n số nguyên dương đầu tiên giúp mình với plss mai mình thi rồi mng ơi”

1. Var i ,n : integer;

   S , T : real;

   Begin

   write (‘n=’) ; read (n) ;

   S:= 0;

   T:= 1;

   For i:= 1 to n do

   S:= S + i;

   T:= T * i;

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

       Writeln (‘ Tich của ‘ ,n,’ so dau tien la’ , T );

   Readln;

   End.

   Bình luận

2. $\text{Về tính tổng n số nguyên dương đầu tiên:}$

   Program Minh;
   Uses Crt;
   Var n,s,i:longint;
   Begin
   Clrscr;
   Write(‘Nhap n: ‘);readln(n);
   For i:=1 to n do
   S:=s+i;
   Write(‘Tong day so tren la: ‘,s);
   Readln;
   End.

   $\text{Về tính tích n số nguyên dương đầu tiên:}$

   Program Minh;
   Uses crt;
   Var n,s,i:longint;
   Begin
   Clrscr;
   Write(‘Nhap n: ‘);readln(n);
   S:=1;
   For i:=1 to n do
   S:=s*i;
   Write(‘Tich day so tren la: ‘,s);
   Readln;
   End.

   Bình luận