viết chương trình tính tích 30 số nguyên dương đầu tiên
viết chương trình tính n!
viết chương trình tính x^n
viết chương trình tính tổng: S=1+2+3+…+n. Trong đó n là số nguyên nhập từ bàn phím
viết chương trình tính tích 30 số nguyên dương đầu tiên
viết chương trình tính n!
viết chương trình tính x^n
viết chương trình tính tổng: S=1+2+3+…+n. Trong đó n là số nguyên nhập từ bàn phím
$C1:$
program C1;
uses crt;
var i,S: integer;
Begin
clrscr;
i:=1; S:=1;
while i<30 do
begin
S:=S*i;
i:=i+1;
end;
write(‘Tich 30 so nguyen duong dau = ‘,S);
readln
End.
$C2:$
program C2;
uses crt;
var n,i,S; integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
i:=1; S:=1;
while i<=n do
begin
S:=S*i;
i:=i+1;
end;
write(n,’! = ‘,S);
readln
End.
$C3:$
program C3;
uses crt;
var x,n,i,S: integer;
Begin
clrscr;
write(‘Nhap x: ‘); readln(x);
write(‘Nhap n: ‘); readln(n);
i:=1; S:=1;
while i<=n do
begin
S:=S*x;
i:=i+1;
end;
write(x,’^’,n,’ = ‘,S);
readln
End.
$C4:$
program C4;
uses crt;
var n,i,S: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
i:=1;
while i<=n do
begin
S:=S+i;
i:=i+1;
end;
write(‘Tong = ‘,S);
readln
End.
Program C;
Uses crt;
Var s;n,i:integer;
Begin;
Clrscr;
Write(‘Nhap n: ‘); readln(n’);
For i:=1 to n do s:=s+i;
Write(‘Tong: S=1+2+3+…+n ‘,s);
Readln;
End.