Viết chương trình tính giai thừa của một số N bất kì
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
3 tháng 8 2023
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.
3 tháng 1 2023
#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;
}
13 tháng 4 2021
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
13 tháng 4 2021
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
kt:=0;
dem:=0;
for i:=1 to n do
if a[i]=x then
begin
kt:=1;
write(i:4);
inc(dem);
end;
if kt=0 then writeln('Khong co ',x,' trong day');
writeln(x,' xuat hien ',dem,' lan trong day');
readln;
end.
14 tháng 3 2023
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.
AP
2
11 tháng 1 2022
TK:
uses crt;
var n: longint;
begin
clrscr;
readln(n);
if n mod 2 = 0 then writeln('Chan') else writeln('Le');
readln;
end.
11 tháng 1 2022
#include<bits/stdc++.h>
using namespace std;
long long N;
int main()
{
cin>>N;
if(N%2==0) cout<<N<<" là số chẵn";
if(N%2!=0) cout<<N<<" là số lẻ";
}
7 tháng 3 2021
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.
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.