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
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
By Claire
By Claire
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
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.
$\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.