Mọi người ơi giúp e vs ạ. Huhu!!!
Viết chương trình tính: S=1-2^3+3^3+...+(-1)^(n+1)*n^3
viết chương trình tính S = (1+2+3…n)^4 giúp mình vs ạ
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt;
cin>>n;
cout<<pow((n*(n+1)/2),4);
}
Bài 1:
function canbac2(x:longint):real;
begin
canbac2:=sqrt(x);
end;
Bài 2:
function tong(n:longint):longint;
var s,i:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i;
tong:=s;
end;
Viết chương trình tính tổng A = \(\dfrac{1}{1}\) + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) + ... + \(\dfrac{1}{n}\)
__________________________
Rất mong mọi người giúp đỡ mình ạ T-T
Program HOC24;
var a: real;
i,n: integer;
begin
write('Nhap n='); readln(n);
a:=0;
for i:=1 to n do a:=a+1/i;
write('A= ',a);
readln
end.
MỌI NGƯỜI ƠI GIÚP EM GIẢI BÀI NÀY VỚI Ạ EM CẢM ƠN !!!
(bài này là viết chương trình nha mọi người)
ĐỀ BÀI
Nhập số N là số nguyên dương từ bàn phím và thực hiện:
+ Nếu N là số chẵn thì S = 2 x 4 x 6 x .... x N
+ Nếu N là số lẻ thì S = 1 x 3 x 5 x .... x N
(mọi người giải gấp giúp em ạ tại ngày mai em nộp bài cho cô rồi ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
if (n%2==0)
{
s=1;
for (i=1; i<=n; i++)
if (i%2==0) s=s*i;
cout<<s;
}
else
{
s=1;
for (i=1; i<=n; i++)
if (i%2==1) s=s*i;
cout<<s;
}
return 0;
}
GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.
Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)
N nhập từ bàn phím
Program HOC24;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*(i+1));
write('S= ',s:6:2);
readln
end.
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
i:=1; s:=0;
while i<=n do
begin
s:=s+i*(i+1);
i:=i+1;
end;
write('S=',S:5:2);
readln
end.
Viết chương trình tính tổng bình phương S = 1^+ 2^2 + 3^2 + … +n^2 , với n là số nguyên dương được nhập từ bàn phím.
Mn lm giúp mik bài này vs ạ. Mik cảm ơn ạ
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+sqr(i);
write('S= ' ,s);
readln
end.
Uses crt;
var i,n,y: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=i*i;
Writeln(s);
readln;
end.
Câu 3: Viết chương trình tính tổng S= 1+1/2^2+1/3^3+...+1/n^2 với n N*cho trước (Sử dụng vòng lặp while..do)
Các bạn giúp mình được không ạ.
Mọi người giúp mình câu này với ạ :
Tính tổng : S= 1-2-3+4+5-6-7+8+9-10-11+12+...+n
Viết chương trình pascal nhập vào một số n tính tổng từ 1 đến n theo 2 cách
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.