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.
Bài 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i+1);
writeln(s:4:2);
readln;
end.
Câu 2:
Program nii;
Uses crt;
Var a,b,c,A:integer;
Begin
Write ('nhap a');
Readln (a);
Write ('nhap b');
Readln (b);
Write ('nhap c');
Readln (c);
A:=a;
If A<b then A:=b;
If A<c then A:=c;
Write ('Ket qua',A);
Readln;
End.
Câu 1
Program ntg;
Uses crt;
Var A,x,y:integer;
Begin
Write ('nhap x');
Readln (x);
Write ('nhap y');
Readln ('y');
A:=x+y;
Write ('Ket qua',A);
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<fixed<<setprecision(2)<<1/(a*1.0+b*1.0);
return 0;
}
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
#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++)
s=s+((1*1.0)/(2*(i*1.0+1*1.0)));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
Câu 1:
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
int main()
{
cin>>a>>b>>c;
cout<<fixed<<setprecision(2)<<(a+b+c)/3;
return 0;
}
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y);
if x>y then write(x)
else write(y);
readln;
end.
var x,y,s: real;
begin;
Readln(x,y);
S:=(3*x*x*x*y-1/2*x*x+1/5*x*y)*6*x*y*y*y;
Write ('Tong gia tri =' , s:2:1);
Readln;
End.
Program CT_2;
Uses Crt;
Var x, y, P: Integer;
Begin
Clrscr;
Writeln('Nhap x, y = ');
Readln(x,y);
P:= (3*x*x*x*y - 1/2*Sqr(x) + 1/5*x*y)*6*x*y*y*y;
Writeln('Vay tich cua bieu thuc la = ',P:0:1);
Readln;
End.