Những câu hỏi liên quan
H24
Xem chi tiết
ML
10 tháng 4 2023 lúc 21:45

while..do

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=1; i:=1;

while i<=n do

begin

t:=t*i;

i:=i+1;

end;

write('T = ',t);

readln

end.

Bình luận (0)
ML
10 tháng 4 2023 lúc 21:46

for..do

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=1;

for i:=1 to n do t:=t*i;

write('T = ',t);

readln

end.

Bình luận (0)
MT
Xem chi tiết
NT
2 tháng 11 2021 lúc 23:22

#include <bits/stdc++.h>

using namespace std;

long long p,i,n;

int main()

{

cin>>n;

p=1;

for (i=1; i<=n; i++)

p=p*i;

cout<<p;

return 0;

}

Bình luận (0)
4T
Xem chi tiết
H24
16 tháng 3 2022 lúc 8:44

var n:integer; 
begin 
write('Nhap n: '); readln(n); 
if (n mod 3 =0) then 
write(n,' chia het cho 3') 
else 
write(m,' k chia het cho 3'); 
readln; 
end. 

Bình luận (0)
NT
16 tháng 3 2022 lúc 14:06

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1;i<=n; i++)

{

cin>>x;

if (x%3==0) t+=x;

}

cout<<t;

return 0;

}

Bình luận (0)
HV
Xem chi tiết
NM
26 tháng 10 2021 lúc 20:59

#include <bits/stdc++.h>

using namespace std;

int gt(int n)

{

if(n==1)

return 1;

return n*gt(n-1);

}

int main()

{

int n;

cin>>n;

cout<<"Giai thua"<<n<<"la: "<<gt(n);

return 0;

}

Bình luận (0)
QA
Xem chi tiết
RN
Xem chi tiết
BT
15 tháng 3 2021 lúc 19:43

Bình luận (0)
37
Xem chi tiết
ND
13 tháng 3 2023 lúc 22:56

1.

Var i ,n : integer;

S , T : real;

Begin

Write ('n:') ;

Read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' , S );

Writeln (' Tich của ' ,n,', T );

Readln;

End.

Bình luận (0)
ND
13 tháng 3 2023 lúc 23:02

2.

program SumAndProductOfNumbers;

var
  n, m, i, sum, product: integer;

begin
  writeln('Enter the values of n and m: ');
  readln(n, m);
  
  sum := 0;
  product := 1;
  
  for i := n to m do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from ', n, ' to ', m, ' is: ', sum);
  writeln('The product of numbers from ', n, ' to ', m, ' is: ', product);
end.

Bình luận (0)
ND
13 tháng 3 2023 lúc 23:03

3.

program SumAndProductOfNumbers;

var
  i, sum, product: integer;

begin
  sum := 0;
  product := 1;
  
  for i := 10 to 25 do
  begin
    sum := sum + i;
    product := product * i;
  end;
  
  writeln('The sum of numbers from 10 to 25 is: ', sum);
  writeln('The product of numbers from 10 to 25 is: ', product);
end.

Bình luận (0)
LT
Xem chi tiết
H1
Xem chi tiết
NT
13 tháng 5 2021 lúc 16:59

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

Bình luận (0)
NT
13 tháng 5 2021 lúc 16:59

2:

function dt(a,b:real):real;

begin

dt:=1/2*a*b;

end;

Bình luận (0)
NT
13 tháng 5 2021 lúc 16:59

3:

function dt(a,b,c:real):real;

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

dt:=s;

end;

Bình luận (0)