ND
2
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
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;
}
28 tháng 2
clrscr;Mình có cách siêu rút gọn của pascal đây:
uses crt;
var n,t: extended;
i: longint;
begin
repeat
write('n=');read(n);
until n>0;
t:=1;
for i:=1 to n div 2 do
t:=t*n*(n-i+1);
if n mod 2 = 1 then
t:=t*(n div 2 +1);
write('n!=t');
readln;readln;
end.
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.
NQ
2
22 tháng 1 2018
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.
21 tháng 1 2018
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.
3 tháng 3 2021
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.
4 tháng 4 2023
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.
KC
3
25 tháng 6 2021
uses crt;
var n,kt,i,n1,i1:integer;
begin
clrscr;
write('nhap n='); readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' khong the phan tich thanh thua so nguyen to');
if kt=1 then begin
write(n,'=');
n1:=n;
i1:=2;
repeat
while n1 mod i1<>0 do
i1:=i1+1;
write(i1);
n1:=n1 div i1;
if n1>1 then write('*');
until n1=1;
end;
readln;
end.
30 tháng 6 2021
var n,k:int64;
i,d:longint;
begin
readln(n);
k:=trunc(Sqrt(n));
i:=2;
res:=1;
while i<=k do
begin
d:=0;
while n mod i=0 do
begin
write(i);
n:=n div i;
if n>1 then write('*');
inc(d);
end;
k:=trunc(sqrt(N));
i:=i+1;
end;
if n>1 then write(n);
readln;
end.
14 tháng 1 2020
*Hướng dẫn:
Gán tổng S với giá trị ban đầu là 0
- Sử dụng để lấy từng chữ số của số tự nhiên N bằng cách:
Lặp trong khi mà N còn > 0 thì
+ Gán k là chữ số cuối cùng của N.
+ Tiến hành cắt chữ số cuối cùng của N đi bằng việc lấy N chia cho 10.
+ Cộng dồn S: = S + k
Lặp lại cho đến khi N = 0 thì dừng
20 tháng 2 2023
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
15 tháng 1 2020
bn tự khai báo nhé!!
begin
clrscr;
write('nhap n=');readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('tong s la:',s);
readln
end.
XONG!!!
15 tháng 1 2020
Bạn quên phần lưu ý rồi, nếu họ nhập cả trăm ngàn thì bị lỗi, longint bị hạn chế kí tự
19 tháng 5 2020
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 n,i:integer;
gt:longint;
begin
clrscr;
write('n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt);
readln;
end.
Đối với free pascal, không có hoặc có đều được
Đối với turbo pascal, bắt buộc phải có