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.
#include <bits/stdc++.h>
using namespace std;
long long i,n;
double p;
int main()
{
cin>>n;
p=0;
for (i=1; i<=n; i++)
p=p+1/(i*1.0);
cout<<p+3*n;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
int n,i;
double s;
int main()
{
cin>>n;
s=1;
for (i=2; i<=n; i++)
{
if (i%2==0) s=s+1/(i*1.0);
else s=s-1/(i*1.0);
}
cout<<fixed<<setprecison(2)<<s;
return 0;
}
câu 2 nè :
Program Hinh_Vuong;
uses crt;
var X: real;
begin
clrscr;
write('nhap canh X ='); readln(X);
writeln('Chu Vi Hinh Vuong =' ,X*4:4:2);
writeln('Dien Tich Hinh Vuong = ',X*X:4:2);
readln;
end.
Bài 1:
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
for i:=1 to n do
t1:=t1+i*(i+1)*(i+2);
t2:=0;
for i:=1 to n do
begin
if i mod 2<>0 then t2:=t2+i*(i+1)*(i+2)
else t2:=t2-i*(i+1)*(i+2);
end;
writeln('T1=',t1);
writeln('T2=',t2);
readln;
end.
Bài 2:
uses crt;
var i,dem,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
writeln('Cac uoc cua mot so ',n,' la: ');
for i:=1 to n do
if n mod i=0 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln('So luong uoc cua ',n,' la: ',dem);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
unsigned long long a,b;
int main()
{
cin>>a>>b;
if (a>b) swap(a,b);
cout<<a<<" "<<b;
return 0;
}
Câu 1:
var i,n:integer;
s:longint;
begin
Write('n = ');readln(n)
for i:=1 to n do
s:=s+2*i+1;
write('tong la: ',s);
readln
end.
Câu 2
Bài 5:
Var b:array:[1..1000] of integer;
i,n,max:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(b[i]);
End;
Write('Cac phan tu am la: ');
For i:=1 to n dko
if b[i]<0 then write(b[i]:8);
writeln;
max:=b[1];
For i:=2 to n do
If b[i] > max then max:=b[i];
write('So lon nhat la ',max);
Readln
End.
Program hotrotinhoc;
var A: real;
i,n: integer;
begin
write('Nhap N='); readln(n);
for i:=1 to n do
if i mod 2=0 then A:=A+1/i else A:=A-1/i;
write('A=',A:1:2);
readln
end.