Viết chương trình tính giai thừa :N!
uses crt;
var n,i:longint;
gt:real;
begin
clrscr;
write('Nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
viết chương trình tính n! (n giai thừa: tích của n số tự nhiên đầu tiên ), với n được nhập từ bàn phím
#include <bits/stdc++.h>
using namespace std;
long long n,i,s=1;
int main()
{
cin>>n;
for (int i=1; i<=n; i++)
s=s*i;
cout<<s;
}
Viết chương trình tính giai thừa của N ( với N>4) nguyên dương nhập từ bàn phím ( python). Giúp em vs ạ ╥﹏╥
viết chương trình tính tổng giai thừa các chữ số của n và đếm tổng có bao nhiêu chữ số
program TinhTongGiaiThua;
uses crt;
var
n, num, sum, digitCount: integer;
function GiaiThua(x: integer): integer;
var
i, fact: integer;
begin
fact := 1;
for i := 1 to x do
begin
fact := fact * i;
end;
GiaiThua := fact;
end;
begin
clrscr;
write('Nhap so n: ');
readln(n);
sum := 0;
digitCount := 0;
while n > 0 do
begin
num := n mod 10;
sum := sum + GiaiThua(num);
digitCount := digitCount + 1;
n := n div 10;
end;
writeln('Tong giai thua cac chu so cua n la: ', sum);
writeln('Tong so chu so cua n la: ', digitCount);
readln;
end.
Bài tập chương trình con: (procedure và function) Bài 1: Viết hàm tính n giai thừa của một số nguyên dương (n!) Bài 2: Viết hàm tính tổng các số lẻ chia hết cho 5 từ 1 đến n Bài 3: Viết thủ tục thực hiện việc hoán đổi 2 giá trị của a và b
Viết lại hoàn chỉnh chương trình tích tổng 4 lũy thừa lũy thừa =a^n+b^n+c^n+d^n trong đó có sử dụng chương trình con là chương trình lũy thừa x^k
Mọi người giúp e bài này với ạ. Mai e phải thi rồi
II. Tự luận
Bài 1: Viết chương trình có sử dụng hàm đưa ra màn hình số lượng các số nguyên tố từ 20 đến 50
Bài 2: Viết chương trình có sử dụng hàm tính giai thừa của 1 số nguyên để đưa ra màn hình tổng 2 giai thừa
Bài 3: Viết chương trình có sử dụng hàm lũy thừa xy để đưa ra màn hình hiệu 2 lũy thừa
Bài 4: Viết chương trình có sử dụng hàm đưa ra màn hình các số chính phương từ 1 đến 100 ngăn cách nhau bởi dấu cách, biết số chính phương là số được tạo ra từ bình phương của 1 số nguyên khác
Viết chương trình tính giai thừa của một số N bất kì
uses crt;
var S,N,i:longint;
begin
clrscr;
writeln('Nhap so N=');readln(N);
S:=1;
for i:=1 to N do S:=S*N;
writeln('N!=',S);
readln
end.
program Tinh_Giai_Thua;
uses crt;
longint S,N,i:longint;
begin
clrscr;
writeln('Nhap so N=');readln(N);
S:=1;
for i:=1 to N do S:=S*N;
writeln(N,'!=',S);
readln
end.
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!=',s:0:0);
readln;
end.
1).
program oken;
uses crt;
var n,i: integer;
gt: qword;
begin
write('nhap n: '): readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
writeln('N!=',gt);
readln;
end.
2).
program tongcacsole;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 203 do
if i mod 2 = 1 then t:=t+i;
write(t);
end.
3).
program tongcacsochan;
uses crt;
var t,i:longint;
begin
clrscr;
for i:=1 to 20 do
if i mod 2 = 0 then t:=t+i;
write(t);
end.