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
huy =)
Xem chi tiết
Minh Lệ
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.

Minh Lệ
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.

Mao Tử
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

}

42. Nguyễn Thị Thanh Tuy...
Xem chi tiết
Ynasuya
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. 

Nguyễn Lê Phước Thịnh
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;

}

Huy Tiến Vũ
Xem chi tiết
Nguyễn Hoàng Minh
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;

}

Quỳnh Anh
Xem chi tiết
Rịt Nguyễn
Xem chi tiết
Bùi Anh Tuấn
15 tháng 3 2021 lúc 19:43

32.Thuỳ 7/2
Xem chi tiết
Nguyễn Hoàng Duy
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.

Nguyễn Hoàng Duy
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.

Nguyễn Hoàng Duy
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.

Lê Vũ Khánh Thy
Xem chi tiết
hà nội 123
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

2:

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

begin

dt:=1/2*a*b;

end;

Nguyễn Lê Phước Thịnh
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;