viết chương trình tính S = (1+2+3…n)^4 giúp mình vs ạ
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
Uses crt;
var i,n,y: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=i*i;
Writeln(s);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
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;
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
double a,s;
int main()
{
cin>>a;
s=1/2*a*a;
cout<<fixed<<setprecision(2)<<s;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
double a,s;
int main()
{
cin>>a;
s=1/2*a*a;
cout<<fixed<<setprecision(2)<<s;
return 0;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var s1:real;
i,n,s2,a:integer;
begin
clrscr;
readln(n);
s1:=1;
for i:=1 to n do s1:=s1*i;
writeln(s1:0:0);
s2:=0;
a:=10;
repeat
s2:=s2+a;
a:=a+1;
until s2>=10000;
writeln(s2);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
#include <bits/stdc++.h>
using namespace std;
long long i,n;
double s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
{
if (i%2!=0) s=s+1/(i*1.0);
else s=s-1/(i*1.0);
}
cout<<fixed<<setprecision(2)<<s;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt;
cin>>n;
cout<<pow((n*(n+1)/2),4);
}