uses crt;
var n,i:longint;
s:real;
{------------ham-tinh-giai-thua---------------------}
function gthua(x:longint):real;
var i:longint;
gt:real;
begin
gt:=1;
for i:=1 to x do
gt:=gt*i;
gthua:=gt;
end;
{------------chuong-trinh-chinh------------------}
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+gthua(i);
writeln(s:0:0);
readln;
end.
Lập trình tính tổng:
S=\(1^2+2^2+3^2+....+n^2\) ( n được nhập vào từ bàn phím ) .
Lập tính tính tổng :
Nhập số nguyên N vào từ bàn phím . Tính tổng các chữ số của N .
1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 7
2.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố
3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ số
mn giúp em giải với ạ
1) dùng lệnh lặp While...do đếm các số nguyên tố từ 1 đến n (n là số nhập từ bàn phím)
2) dùng lệnh lặp While...do để tính tổng các số nguyên tố được nhập tuè bàn phím.
mn giải hộ mình với ạ. mình xin cảm ơn ạ
viết chg trình nhập từ bàn phím số nguyên dương N hãy tính và đưa ra màn hình tổng các số chia hết cho 3 trong đoạn từ 1 đến N
Viết chương trình kiểm tra số nguyên N bất kỳ nhập vào từ bàn phím là số âm hay số dương.
Viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím giá trị các phần tử là các số nguyên đưa ra màn hình mảng vừa nhập với thứ tự các phần tử ngược lại, nhập 3, 6, 8 đưa ra 8, 6, 3. Đếm số phần tử có giá trị lớn hơn 10. Đưa ra màn hình số lượng số nguyên tố trong mảng
Viết chương trình tính tổng dãy số nhập từ bàn phím sao cho không vượt qua 200
