Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Bùi Ngọc Khánh Huyền
Xem chi tiết
Phía sau một cô gái
3 tháng 8 2023 lúc 20:53

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.

03. Phạm Nguyễn Phương A...
Xem chi tiết
Nguyễn Văn Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 1 2023 lúc 14:34

#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;

}

Duy
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
Phạm minh phương
Xem chi tiết
Vu Dinh Anh
13 tháng 6 2023 lúc 15:15

c++:

#include <iostream>

using namespace std;

int main(){

int y;

cin >> y;

int i = 1;

int luythua = 1;

while(i<=y){

luythua = luythua *i;

i = i+1;

}

cout << luythua;

}

Nguyễn văn Khải
Xem chi tiết
Nguyễn Danh Luân
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2019 lúc 17:28

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.

Khách vãng lai đã xóa
Nguyễn Quỳnh Trang
Xem chi tiết
Tran Van Phuc Huy
22 tháng 1 2018 lúc 13:15

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.