Viết chương trình tính tích P=1x2x3x..xn
Mik muốn hỏi Cách viết chương trình tính tích T=1x2x3x4x….xn bằng hai cách while do với for do làm ơn giúo mìn hả với ạ
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.
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.
Tìm thuật toán cho bài toán sau:Tính tích P=1x2x3x...xN ( với N>0)
#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;
}
Viết chương trình tính và in ra tổng các số nguyên chia hết cho 3 trong dãy số nguyên X1, X2, X3, ...Xn biết dãy số X1, X2, X3, ... Xn được nhập từ bàn phím
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.
#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;
}
cho số nguyên dương N .tính N giai thừa =1x2x3x...xN
#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;
}
Viết chương trình tính trung bình của N số thực x1,x2,x3,....xn. Các số N và x1,x2,x3....xn được nhập từ bàn phím ( Sử dụng While....do)
Giúp mình với nhé❤️🍀
viết chương trình tìm số lớn nhất của n số nguyên x1, x2, x3,..., xn. các số x1, x2, x3,..., xn được nhập từ bàn phím
Em sử dụng pascal, nếu đc thì có thể ghép bốn câu lại với nhau giúp em :3
Bài1: viết chương trình tính tổng(tích) của N số tự nhiên.
Bài2: viết chương trình tính tổng (tích) từ số n đến m
Bài3: viết chương trình tính tổng (tích) từ 10 đến 25
Bài4: viết chương trình tính tổng các số lẻ(hoặc chẵn) của N số tự nhiên, N được nhập từ bàn phím.
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.
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.
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.
1 ) Viết chương trình tính diện tích và chu vi hình chữ nhật , với chiều dài và chiều rộng được nhập từ bàn phím 2 ) Viết chương trình tính diện tích và chu vi hình vuông , với cạnh được nhập từ bàn phím 3 ) Viết chương trình tính diện tích và chu vi tam giác , với độ dài ba cạnh và chiều cao tương ứng với cạnh đó và được nhập từ bàn phím bàn phím 4 ) Viết chương trình tính diện tích và chu vi hình tròn , với bán kính được nhập từ Yêu cầu : Viết công thức tính diện tích và chu vi của các hình vào vở Viết chương trình vào vở và làm trên phần mềm Python
1- Viết chương trình con tính diện tích hình tròn bán kính R ( sử dụng thủ tục hoặc hàm)
2- Viết chương trình con tính diện tích tam giác khi biết đáy và chiều cao nhập từ bàn phím.( sử dụng 1 thủ tục hoặc hàm để tính diện tích)
3- Viết chương trình con tính diện tích tam giác với độ dài các cạnh nhập từ bàn phím.(sử dụng 1 thủ tục hoặc hàm )
1:
function dt(r:real):real;
begin
dt:=sqr(r)*pi;
end;
2:
function dt(a,b:real):real;
begin
dt:=1/2*a*b;
end;
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;