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
Hoàng Long
Xem chi tiết
Bùi Anh Tuấn
7 tháng 3 2021 lúc 21:26

Nguyễn Lê Phước Thịnh
7 tháng 3 2021 lúc 22:09

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.

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;

}

03. Phạm Nguyễn Phương A...
Xem chi tiết
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.

M Ạ C H N H A
Xem chi tiết
Nguyễn văn Khải
Xem chi tiết
Duy
Xem chi tiết
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.

Tuyết Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:23

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.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 22:08

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.