Những câu hỏi liên quan
BH
Xem chi tiết
PG
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.

Bình luận (0)
NH
Xem chi tiết
NT
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;

}

Bình luận (0)
H24
Xem chi tiết
NT
13 tháng 4 2021 lúc 12:11

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.

Bình luận (0)
NT
13 tháng 4 2021 lúc 12:12

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.

Bình luận (0)
DN
Xem chi tiết
MA
Xem chi tiết
0A
Xem chi tiết
TA
Xem chi tiết
PG
14 tháng 3 2023 lúc 15:44

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.

Bình luận (0)
AP
Xem chi tiết
LM
11 tháng 1 2022 lúc 18:44

TK:

uses crt;
var n: longint;
begin
clrscr;
    readln(n);
    if n mod 2 = 0 then writeln('Chan') else writeln('Le');
readln;
end.

Bình luận (0)
NT
11 tháng 1 2022 lúc 21:06

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

}

Bình luận (0)
HL
Xem chi tiết
BT
7 tháng 3 2021 lúc 21:26

Bình luận (0)
NT
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.

Bình luận (0)